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ABSTRACT: 


This module is the t iorery file used for compiling all other 
modules in the CDD facility. 


ENVIRONMENT: 
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a ZSBTTL “STRUCTURE DEF INITIONS* 


: STRUCTURE DEFINITIONS 


oa 


On-disk Pointer Structure 


23 6 


— oweens eee moe} ooewo—} +0 
‘ — ‘ 


Logical Page Line DPTRSV_LINE 
number ‘number; 3 DPTRSV_PAGE 


‘ 
‘ 
‘ 
‘ 
ee ee 


LITERAL 
DPTR$S_BLOCK_LENGTH = 3; 


| 
| 
MACRO : 
— —— = BLOCKCDPTRSS_BLOCK_LENGTH,BYTE) FIELD (DPTR$Z_FIELDS) | 
° } 


FIELD DPTRSZ_FIELDS = 
SET 


DPTRSV_VALUE = (0. 0. 24, 02, 
DPTRSV_LINE = (0, 0, 7, 0) 
= (0; 7; 17, 05 


: DPTRSV_PAGE 


— — ——— ——————U SS a —ñif 
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In-core Disk Pointer Structure 


+ 


31 23 
tare mecnn 4 20 
Unternoalb DKEYSV_LINE 
: file { Logical Page : Line : DKEYS$V_PAGE 
+ number H number ‘number: ‘ DKEYSB_FILE 


When a disk pointer is a ponees around routines, it 
9 pesete as a Disk Key (DKEY), rather than just a disk 
pointer. 


Disk Keys include all the information of a disk pointer, 
but also include a pointer to their file's FCB. 


LITERAL 
DKEY$S_BLOCK_LENGTH = 4; 


MACRO 
ar = BLOCKCDKEY$S_BLOCK_LENGTH,BYTE) FIELD (DKEY$Z_FIELDS) 


FIELD DKEYSZ_FIELDS = 
SET 


DKEYSV_LINE = (0, 0 
DKE YS$V~PAGE = C0, 7 
cg, DKEVSBCFILE = £0; 2 


7 
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'¢ 
; In-core Page Number Structure 
i 
31 23 
' eos +0 
: ' H ' 
4 : File } Page number H PKEYSV_PAGE 
; + number } H PKEYSB_FILE 
' tener — ron ener eecana y +4 
— 
Dictionary page numbers that are passed around the hash table 
: use the Page Key (PKEY) structure to provide both the page 
: and file numbers. 
LITERAL 
PKEYSS_BLOCK_LENGTH = 4; 
MACRO 


R 
- a = BLOCKCPKEYS$S_BLOCK_LENGTH,BYTE] FIELD (PKEY$Z_FIELDS) 


FIELD PKEYSZ_FIELDS = 
SET 


= (0, 0 
cg: KEVSBCFILE = £0, 24, 


PKEY$V_PAGE 


4 


— 7 
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* 


Line Index Format 


31 15 


‘ ' 


! Offset to blk ! 
ifrom page base ! 


twee renew oe anc 22— 


LINESW_BLOCK_OF FSET 
+2 


Each block on a qicttonery page is pointed to by a Line index 
on that page. Disk pointers (DPTR) between the —8 ous blocks 
actually point to the block’ ine index. The Line index is 
then used to locate the physical dictionary block. 


j 

The PAGESINDEX macro allows the programmer to access a line 

index while it resides on a dict —— page. It also uses the 
| 
| 
| 


LINESZ_FIELDS to access the individual fields within a Line index. 
LITERAL 
LINESS_BLOCK_LENGTH = 2; 
MACRO 

BL ine = BLOCKCLINESS_BLOCK_LENGTH,BYTE) FIELD (LINES$Z_FIELDS) 
FIELD LINESZ_FIELDS = 
ss LINESW_BLOCK_OFFSET = (0, 0, 16, 0] 


F 
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+ 


Page Format 


31 15 
jpn ete eee ec eee | +0 
Page Checksum PAGESL_CHECKSUM 
ee 44 
‘Page's | H H 
‘cluster; | Page Number H PAGESV_NUMBER 
; seq # i ' i PAGESB_CLUSTER_10_SEQ 
4222222 ees +8 
; PAGESL_NEXT_PAGE 
: Size of next iNext Related Page: PAGESV_NEXT_PAGE 
{ page group : : PAGESV_NEXT_SIZE 
‘Page's | : Prior : 
: group : i Related Page i: PAGESV_PRIOR_PAGE 
! Seq #} PAGE$B~GROUP~10_SEQ | 
{ Number of { Free space PAGESW_FREE_SPACE 
: tine indices ! : PAGESW_INDICES 
⸗ ee2eeceee ¢wmmoecmoncecoccaae ° +20 PAGE $V_DATA } 
Data area 
$/\/\IN\ININININININININININININING 
; Line index area 
| — wom ecees é +51 2 PAGE $V_INDE X_BASE | 


Each page in the dictionary file starts with a page header. 
The next and prior related page pointers are used for Linking 
page groups. The following types of page groups exist: 


1) Lockable page group. 
Each named entity (and history List) owns exactly 
one lockable page group. These groups contain 
Pit yrened offspring of the name entiry (or history 
st). 


A page group wv only be acoopees throu pes 
rtal page. roup's portal page is e 

on which Phe nansé entite (or nis ory list A ; 

resides. If a group's portal page is locked, then 

no pages in the group may be accessed. 


The PAGESINDEX structure is used to access a line index entry on 
@ pag 


A page whose checksum is zero is a locked page, and indicates that 


— —ñ — —ñ — 
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the sub-tree below it is incomplete and in a transient state. 
Such pages may never be read. 


Each y has two page sequence manera. BLA cluster sequence 


number must be the same for all pages he cluster. The group 
sequence 2 mumber must be the same for all pages in an 1/0 group. 
The cluster 1/0 sequence number bumped whenever more than one 


ay «4 in the cluster is —— oR group 1/0 sequence number 
whenever the group is written. These sequence numbers 
enable the detection of incomplete cluster unstage operations. 


LITERAL 
PAGESS_BLOCK_LENGTH = 512; 


MACRO 
ae = BLOCKCPAGESS_BLOCK_LENGTH BYTE) FIELD (PAGESZ_FIELDS) 

FaeLe oases FIELDS = 
—8 CHECKSUM 


VINUMBER 
PAGES CLUSTER 10_SEQ 
PAGE PAGE ~ 


Mn Boon lo 


“—OGOvinr © © 8 & 6 


TES; * 


LITERAL 
PAGE $K_BASE = BLOCKLO ePAsesy DATA 
BLOCK LENGTH, BYTE) 
PAGESK_FREE SPACE = PAGES Par bee PENG GTA = PAGESK_BASE, 
PAGESS-INDER_BASE = BLOCK 0, PAGESV_INDEX_BASE; 
PAGESS tzlol LENGTH, BYTE); 


STRUCTURE 
PAGES $INDEXCI 0, P. $ 
(PAGE SINDEX*PAGESS 


Ej = 
INDEX_BASE+0-((1)*LINESS_BLOCK_LENGTH)) <P,S,E>; 


H 
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Dictionary Header Block 


oa 


1 
? 5 ° 40 
{ Pointer to top of | DICTSv_CDDSTOP 
+ dictionary sub-tree |; 
Poet erm name naw ome nae 4 +3 
i Pointer to last DICTSV_LAST_BITMAP 


free page bit-map ; 


Scene men ronan awn + +6 


Each dictionary uses page T as its dictionary header page. 
The dictionary header block immediately follows the page 
ader on page 1. 


DICTSV_CDDSTOP points to the root of the tree/sub-tree contained 
in the dictionary file. 


DICTSV_LAST_BITMAP points to the Last free page bit-map entry. 


LITERAL 
DICTSS_BLOCK_LENGTH = 6 + PAGESK_BASE; 
MACRO | 
SDICT = BLOCKCDICTSS_BLOCK_LENGTH,BYTE) FIELD (PAGESZ_ FIELDS, 
‘ 7 DICTSZ_FIELDS) | 
FIELD DICTSZ_FIELDS = 
DICTSV_CDDSTOP = EQVPAGESK BASE. 0. 24, 02, | 
= [3+PAGESK-BASE, 0, 24, | 


DICTSV“LAST_BITMAP 
TES; 


— 
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'¢ 
Universal Block Header 


31 24 15 

rememceny chases ———— +0 

Block Length Figs lock BtKSe~ ft AGS 
i i Fle J —8 i ug BUKSWILENGTH 


This block or nee in every non-fixed block on the 


erces onary p Fixed blocks (one which always occur 
in the a A oe whenever they exist) do not have this 
block he 

LITERAL 


BLKSS_BLOCK_LENGTH = 4; 


MACRO 

SBLK = BLOCKCBLKSS_BLOCK_LENGTH,BYTE) FIELD CACLSZ_FLELDS, 
ATT$Z_FIELOS, 
BLKSz FIELDS 
ELST$Z_FIELDS, 
ENTS FIELDS 
FPCBSZ_FIELDS, 
LIST$2-FIELDS, 
LSTSz FIELDS 
NAME 7 FIELDS, 
NAT i FIELDS 
NNAMS$Z_FIELDS, 
NODE$2~ FIELDS, 
SEGSZ FIELDS 
SLST$27_FIELDS, 
SSA$SZ_FIELDS, 
STRSZ FIELDS 

: TEXT$2_FIELDS) 

FIELD BLKSZ_ FIELDS = 
att “Flags > rt: 0: B: 03. 
= a eo 
BLKSWILENGTH = (2; 0: 16, 05 


LITERAL 
BLKSK_FLAGS = BLOCKCO, BLKSB TYPE; -BYTE), 
BLKSK _BASE = BLKSS BLOCK LENGTH; 
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Block types 
The ordering and clustering of these block types is significant. 


Ail block types must be cRon Pye’ without any holes and 
bounded by symbols BLKSK_TYPE_FIRST and BLKSK_TYPE_LAST. 


ALL node and NAME Biosk S$ must be —A and bound 
by the symbols BLK OF yPE” De FIRST and BLKSK_TYPE_NODE BoE CAST. 


To add more node or NAME block types, insert them at the front 
of the table. 


To add any other block type. append them to the end of the table. 


CHANGING THE VALUES OF ANY OF THE ACTUAL BLOCK TYPES WILL INVALIDATE 
EXISTING DICTIONARIES. 


LITERAL 
BLKSK_TYPE_FIRST = 101, ! Lowest block type 
BLKSK_TYPE_NODE_FIRST = 101, ! First node or NAM block 
BLKSK_TYPE_DIR_NAM + 19h : Pirectery NAM beech 
BLKSK_TYPE_FIL-NAM =1 ¢° ! File NAM block 
BLKSK-TYPE-TERA_NAM = 105, ! Terminal NAM block 
BLKSK_TYPE-DIR_RODE = 104, ! Directory node block 
BLKSK_TYPE-TERA_NODE = 105, ! Terminal node block 
BLKSK_TYPE_NODE_LAST = 105, ! Last node or NAM block 
BLKSK_TYPE_B1TMAP = 196. ! Free page bitma 
BLKSK_TYPE_ENTITY_ATT = 107, ! Entity St eribute: block 
BLKSK_TYPE_EN LIST = 108, ! Entity list bloc 
BLKSK_TYPE_ENTITY_LIST_ATT = 109, ! Entity List attribute block 
BLKSK_TYPE— TT = 110, ! Null *9 bute b 
BLKSK_TYPE_NUM_ATT = 111, ! Numeric at tribute. bloc k 
BLKSK_TYPE-SHORT ATT sii2, ! Short string attribute block 
BLKSK_TYPE-STRING_ATT = 113, ! String este bute b 
BLKSK_TYPE_STRING_LIST = 115, ! String list blo Nw 
~!YPE_STRING_LIST_ATT = 116. ! String ist attribute block 
BLKSK_TYPE_STRING_SEG = 117, ! String segment bloc 
BLKSK_TYPE_TEXT = 118. ! Text Bloc 
BLKSK_TYPE_ACL = 119, ! Access control List ent 
BLKSK- TYPE-ACLC = 138° ! Access control List criterion 
BLKSK_TYPE_LAST = 120; ! Highest block type 


e 
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+ 


Free Page pentrot Block (FPCB) 
Free Page Bit Map (FPBM) 


$e nen ene e remanence ee recent +0 


t Disk address of prior i FPCBSV_PRIOR 
— nent annnnntenenennnnnenennnt +3 
{ Number of | First page } FPCBSV_FIRST_PAGE 
| pages mapped ; mapped : FPCBS$V_PAGE_COUN 
ee oor +7 
{ Blocks not | FPCBSW_EXCESS_BLOCKS 
+ 


‘ 
i used here 


eeeceeeoeoooooen +9 F PCBSV 8 1 TMAP 

Free pages in the eicetonery file are controlled deli? *f yf ene 
Control Blocks (FPCB) and the Free Page Bit Map (F 

free page in the file has its corresponding bit set on. 


The disk’s cluster size may make it wpreerete to use all of the 


allocated blocks. If so, the un-used blocks are tallied in 
FPCBSY os BLOCKS, and will be used when the file is next 


The FPCBs are chained as the dictionary file grows in size. 


LITERAL 
FPCBSS_BLOCK_LENGTH = BLKSK_BASE · 9; 
STRUCTUR 
FPCBLO, P, S$, E; BLOCKS) = CEPCBSS BLOCK LENGTH+(BLOCKS+7)/81 
CB+0)<P,S,E>; 
FIELD fPces2. FIELDS = 
FPCBSV_PRIOR * (at BASE. 0. 24, 0 a 
FPCBSV~F IRST_PAGE ⸗ S$K"BASE. 7 
FPCBSV~PAGE_ COUNT * Hs “BASE. 17. 15. 04, 
FPCBSU- “EXCESS “BLOCKS = SK-BASE: 0. 16, 9 : 
_FPCBSV_61 TMAP = OeBLKSK™ “BASE. 0. 0, 0 
LITERAL 


CBS$K_BASE = FPCB$S_BLOCK_LENGTH 
FPCESS: “BITMAP = FPCBLO; FPCBSV_BITMAP); 


STRUCTUR 
FPBMCI} = (FPBM+FPCBSS_BITMAP)<I-1, 1, 0>; 


a 


7 
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Name Block 


31 24 15 


tomar woteresr eos esac emo wn} +0 


NAMESV_SIBLING 


Pointer to next NAME 
(sibling) 


eee eewoe we ome oemeomonn st 43 


Pointer to name block NAME S$V_NAME 


nenoscem boc onmoannamaneae + +6 
Pointer to node 
block or forwarding 
file name 


Semmes enema noc ecromenaeae + +9 


NAMESV_NODE or NAMESV_FILE 


} coccces } coccce } ooces 


There are three types of NAM Blocks, Directory, File, and Terminal. 
Directory NAM Block is made up of a Block Header + NAM Block. 

File NAM Block is made up of a Block Header + NAM Block. 

Terminal NAM Block is made up of a Block Header + NAM Block + Terminal 
NAM Block. 


teed eet ee ee ee ee — — ——— —— —— 


LITERAL 
NAMESS_BLOCK_LENGTH = 9 + BLKSK_BASE; 


MACRO 
SNAME = BLOCKCNAMESS_BLOCK_LENGTH, BYTE) FIELD (BLK$Z_F 
m NAME$Z_ 


FIELD WAMESZ FIELDS = 

NAMESV_SIBLING QOL KeK BASE. . 24, 01, 

NAM *BLKSK_BASE, 0, 24, 0], 
6+BLK$K_BASE, 0, 8 ° 


6+BLK$K_BASE, 


$K_BASE = NAMES$S_BLOCK_LENGTH; 


— — — — — — — — ——— ——— — — — 
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* 


Node Nam Block 


31 24 15 


— om ammo eeno me mmemnseece > 9 0 


| Pointer to resource ; 
: name block H 


—24 +3 


NNAMSV_RE SOURCE 


Node NAM Block is made up of a Block Header + NAM Block + Node 
NAM Block. 


LITERAL 
NNAMSS_BLOCK_LENGTH = 3 + NAMESK_BASE; 


MACRO 
SNNAM = BLOCKCNNAMSS_BLOCK_LENGTH,BYTE) FIELD oie 


Cow 
a 
— — — 
— — — 
mmm 
--—- 
222 
Nan 
— © 


NNAM$Z_ 
2; 
hea NNAMSZ_FIELDS = 


* NNAMSV_RESOURCE = CO*NAMESK_BASE, 0, 24, 0] 


LITERAL 
NNAMSK_BASE = NNAM$S_BLOCK_LENGTH; 


N 7 
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+ 


There are two types of Node Blocks Directory and Terminal. 
Directory Node Block is made up of a Block Header + Node Block 
Terminal Node Block is made up of a Block Header + Node Block 


‘ 

; Node Block 

i 

; 31 24 15 

; ee — +0 

Pointer to name block NODESV_NAME 

— nen nn ne nen nn nen ens +3 

i Pointer to history NODESV_HISTORY 
° ' list head ' 

: ee +6 

i : Pointer to protection } NODESV_PROTECTION 
: ' list head ' 

' { Pointer to parent } NODESV_PARENT 
: i node ‘ 

: ° 222 — —— +12 

Pointer to resource NODESV_RESOURCE 
4 415 

Pointer to NODESV_LIST 

; ' list head ' 

: ¢oeceaee — — —— +18 

i cop NODESW_VERSION 
: ' version i 

i 

i 

i 

i 

i 

i 

j 


LITERAL 

NODESS_BLOCK_LENGTH = 20¢ BLKSK_BASE; 
MACRO 

SNODE = BLOCKCNODESS_BLOCK_LENGTH,BYTE) FIELD (BLKSZ_FIELDS 

" NODE$2~F IELDSS 
FIELD NODESZ_FIELDS = 

NODE$V_ORDERED = . 0) 
ESV~NAME s — BASE, - 0. 24, 0}. 


NODESV_PROTECTION ⸗ —I BASE, 0, st i. 
NODESV_PARENT = (9+BLKS$K~ itt 4 
NODE $VRE SOURCE = 1g +BLKSR_B  $. i: i: 
NODESV_LIST = (15+BLKSK_ ~BASE. ° 
Tes NODE SW" VERSION = (18+BLKSK_BASE, 0, 1 
LITERAL 
NODESK_BASE = NODESS_BLOCK_LENGTH; 
1+ 
4 The following flag occurs in the BLKSB_FLAGS field of 
4 a directory node. 
LITERAL 
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NODESM_ORDERED = 1*1 = 1°0; ! List elements are sorted by name 


— — —— 


CODL1IB.B832;1 16-SEP-1984 16:58:51.80 Page 16 


* 


Common Attribute Block 


31 24 15 


wre anna tacerere${ananmae nese e meee n} +0 


Attribute name ATTSL_NAME 


' 
‘ 
‘ 
‘ 
‘ 
‘ 
+ 


eeeeceen anor nem ewretemean nanan nemeane 


ATTSV_SIBLING 


5 asacce 
+ 
- 


Pointer to next 
sibling 
bwmmorer aero se ne en ee a meee et +7 


Each attribute has the common attribute block immediately following 
the universal block header. 


There are six * of Attribute Blocks Entity Attribute Block 
List Attribute Block, Numeric Attribute Block, Null Attribute Block, 
Short String Attribute Block, and String Attribute Block. 


one tty Attribute Block is made up of a Block Header + Attribute Block 
+ Entity Attribute Block. 


List Attribute Block is made up of a Block Header + Attribute Block 
+ List Attribute Block. 


Numeric Attribute Block is made up of a Block Header + Attribute Block 
+ Numeric Attribute BLock. 


Null Attribute Block is made up of a Block Header + Attribute Block. 


Short String Attribute Block is made up of a Block Header + Attribute 
Block + Short String Attribute. 


ste tag Attribute Block is made up of a Block Header + Attribute Block 
+ String Attribute Block. 


il el ieee ee Ratt tl Dette teed Be te et ed ed eed 


LITERAL 
ATTSS_BLOCK_LENGTH = 7 + BLKSK_BASE; 


MACRO 
SATT = BLOCKCATT$S_BLOCK_LENGTH,BYTE] FIELD (ATT$Z_FIELDS, 
x BLK$Z_FIELDS) 
PEELE ATEOL SF SELDS = 
ATTSL_NAME = CO+BLKSK_BASE, 0, 32. 0], 
_ ATTSV_SIBLING = [4+BLKSK_BASE, 0, 24, 0] 


LITERAL 
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| 
| 
| 
ATTSK_BASE = ATT$S_BLOCK_LENGTH; 
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* 
Entity Attribute Block 


31 24 15 


— 


: Pointer to first ENTSV_FIRST_ATT 
H attribute ' 


$+ er ere mmoeon mm eoareremrenn}y ¢ 3 


ame tty Attribute Block is made up of a Block Header + Attribute Block 
+ Entity Attribute Block. 


LITERAL 
ENTSS_BLOCK_LENGTH = 3 + ATTSK_BASE; 


MACRO 

SENT = BLOCKCENTS$S_BLOCK_LENGTH, BYTE) FIELD (ATT$Z_FIELDS, 

BLK$Z_FIELDS 

. ENT$Z—F IELDS) 

FIELD ENTSZ_FIELDS = 
‘ ENTSV_FIRST_ATT = CO+ATT$K_BASE, 0, 24, 0] 

LITERAL 

ENTSK_BASE = ENT$S_BLOCK_LENGTH; 


f 
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* 


List Attribute Block 


31 ra) 15 
epee ae enemas +0 
{ Pointer to first | LISTSV_FIRST_LST 
H lst segment H 
ee oes +2 
: Total number ! LISTSW_CELL_COUNT 


of cells : 
4 


22445 


List Attribute Block is made up of a Block Header + Attribute Block 
+ List Attribute Block. 


TERAL 
LISTSS_BLOCK_LENGTH = 5 + ATTSK_BASE; 


MACRO 
SLIST = BLOCKCLISTSS_BLOCK_LENGTH, BYTE) FIELD (ATTS$Z_FIELDS, 
BLK$Z_FIELDS 


-. LISTS2_F 1ELDS) 


FaeLp estes. FIELDS = 


LISTSV_FIRST_LST 
2. LISTSW_CELL_COUNT 


O+ATTSK_BASE, 0, 24, 0) 
3+ATT$K_BASE, 0, 16, 0) 


LITERAL 
LISTSK_BASE = LISTSS_BLOCK_LENGTH; 


G 
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14 
Numeric Attribute Block 


31 ra) 15 


Pwo me ene nn te ee ee eee meee mee cen > +0 
' 


Numeric Attribute Value} NATSL_VALUE 


! 

1 

— 

1 

' 

! 

' 

' 

: ' 
' two — a mn er eer ce serena $ +4 
— 

' 

— 

' 

— 

! 

' 

— 

1 


Numeric Attribute Block is made up of a Block Header + Attribute Block 
+ Numeric Attribute BLock. 


Numeric attribute block contains the 
value of the numeric attribute. 


LITERAL 
NATSS_BLOCK_LENGTH = 4 + ATTSK_BASE; 


MACRO 


SNAT = BLOCKCNATSS_BLOCK_LENGTH,BYTE) FIELD atk z 


T$ 

$2_ 

NATSZ— 
2: 

FIELD NATSZ_FIELDS = 


NATSL_VALUE 
TES; 


LITERAL 
NATSK_BASE 


CO+ATTSK_BASE ,0,32,0) 


NAT$S_BLOCK_LENGTH; 


4 
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. 


Short String Attribute Block 


31 0 
— —— +0 SSAST_STRING 


Strin 
° \ 
f 


oF —— 


2 +7 


Short String Attribute Block is made up of a Block Header + Attribute 
Block # Short String Attribute. 


stored. whose total length is between 0 and 2 © Pytee ¢ are usually 

stored using the short strin atte Soute —*8* ring is 
long to be stored in 3 a 8 hen it is stored Solas a@ normal 

serine cetribute’ block (STR) 


LITERAL 


SSASS_BLOCK_LENGTH = 0 + ATTSK_BASE; 
MACRO 

SSSA = BLOCKCSSASS_BLOCK_LENGTH,BYTE) FIELD (ATT$Z_FIELDS, 

LK$Z_FIELDS 

. SSA$Z~FIELDS) 
FIELD $SASZ_FIELDS = 

* SSAST_STRING = CO*ATTSK_BASE, 0. 0, 0) 
LITERAL 


SSASK_BASE = SSA$S_BLOCK_LENGTH; 
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* 


String Attribute Block 


31 24 15 0 
! Pointer to first } STRSV_STRING 
H string segment ' 


ange c9 + 3 
{ Total string | STRSW_LENGTH 
: Length : 
Fw ewemaenronneceeers + 5 


String Attribute Block is made up of a Block Header + Attribute Block 
+ String Attribute Block. 


The string is broken into one or more segments. The string 
segments are stored in SEG blocks. 


Oe eee — — — 


LITERAL 
STRSS_BLOCK_LENGTH = 5 + ATTSK_BASE; 


MACRO 

SSTR = BLOCKCSTRSS_BLOCK_LENGTH,BYTE) FIELD (ATT$Z_FIELDS, 

BLK$Z_FIELDS 

* STRSZ—FIELDSS 

FIELD. STRSZ_FIELDS = 
STRSV_STRING = EQ*ATTSK BASE. 0. 24, 0), 

TES STRSW_LENGTH *ATTSK_BASE, 0, 6, 0 

LITERAL 


STRSK_BASE = STR$S_BLOCK_LENGTH; 


— — — — — — —— — — — — — — —— — — —— ———— — — —— — — — 
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a 


LST Segment Block 


31 — — * 
{ Pointer to next ist | LSTSV_NEXT_LST 
— — 
iNunber of cells! LSTSW_CELL_COUNT 
+ 


he 45 LSTST_CELLS 


There are two types of LST Segment Blocks Entity List Block and 
String List Attribute Block. 


Entity List Block is made up of a Block Header + LST Block + 
Entity List Block. 


String List Attribute Block is made up of a Block Header + LST 
Block + String List Attribute Block. 


LITERAL 
LSTSS_BLOCK_LENGTH = 5 + BLKSK_BASE; 


MACRO 
SLST = BLOCKCLSTS$S_BLOCK_LENGTH, BYTE) FIELD (BLK$Z_FIELDS, 
" LST$Z_FIELDS) 
FIELD LSTSZ_FIELDS = 
LSTSV_NEXT_LST = [0 + BLKSK_BASE, 0, 24, 0). 
LSTS$W_CELL~ COUNT = (3 + BLKSK-BASE, 0, 16, 0), 
. LSTST_CELLS = (5 + BLKSK_BASE, 0, 0, 0] 
LITERAL 


LSTSK_BASE = LST$S_BLOCK_LENGTH; 
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LITERAL 
ELSTSS_BLOCK_LENGTH = 3; 


FIELD ELSTSZ_FIELDS * 


ELSTSV_ATT = (0, 0, 24, 0) 
TES; 
LITERAL 
ELSTSK_BASE = ELSTSS_BLOCK_LENGTH; 
STRUCTURE 


ELSTSELMCI) = 


‘e 

: Entity List Block 

i 

31h 15 

: arn +0 
i { Pointer to first | 

4 : attribute : 

: Fowrooeoceresososoeoosoeeans 23 
Entity List Block is made up of a Block Header + LST Block + 
: Entity List Block. 

i. 


CRO 
Tred = BLOCKCELSTSS_BLOCK_LENGTH BYTE] FIELD (ELST$Z_FIELDS) 


(ELSTSELM + LSTSK_BASE + (1 * ELSTSS_BLOCK_LENGTH)); 
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String List Attribute Block 


31 24 15 , 
: Pointer to first H SLSTSV_STRING 
H string mH, ' 
H or text b H 
ania ———— 9 4 3 
seat string SLSTSW_LENGTH 


Gaccenmermwccnes OS  SLSTST_STRING 


String List Attribute Block is made up of a Block Header + LST 
Block + String List Attribute Block. 


LITERAL 
SLST$S_BLOCK_LENGTH = 5; 


CRO 
geese = BLOCKCSLST$S_BLOCK _LENGTH, BYTE] FIELD (SLSTS$Z_FIELDS) 


ro suSTSz FIELDS = 


SLSTS$V_ panies = 9. 0, 24, 0), 
SLSTSW-LENGTH = {3, 0, 16, 0], 
g. SESTST. “STRING = (5, 9, 0, 0) 
LITERAL 
SLSTSK_BASE = SLST$S_BLOCK_LENGTH; 
STRUCTURE 
SLSTSELMCI) = 


I 
(SLSTSELM + LSTSK BASE + (J * SLSTS$S_BLOCK_LENGTH)); 


— — — 


1a 
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* 


String Segment Block 
31 24 15 


— n meme este wes omeweo ewe ne + +0 
' 


{ Pointer to next =} SEGSV_NEXT 
H string segment H 


String Segment Block is made up of a Block Header + String 
Segment Block. 


Each string attribute points to zero or more string segment 
blocks. Each block contains a portion of the whole string. 
The final string is found by catenating all the string 
segments together. 


TERAL 
SEGSS_BLOCK_LENGTH = 3 + SLKSK_BASE; 
MAC 


RO 
SSEG = BLOCKCSEGSS_BLOCK_LENGTH,BYTE] FIELD (BLK$Z_F 
* SEGSZ_FI 


FIELD SEGSZ_FIELDS = 
SET 


IELOS, 
ELDS) 


SEGSV_NEXT = FOCBLKSK BASE. g. ss 9. 
CC = C3+BLKSK_BASE, 0, 0, 0 
LITERAL 


SEGSK_BASE = SEG$S_BLOCK_LENGTH; 


N 
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* 


Text Block 


31 0 

— — +0 TEXTST_STRING 
Text 
\ 
/ 


/ 
} 
+ 


Text Block is made up of a Block Header + Text Block. 


LITERAL 
TEXTSS_BLOCK_LENGTH = 0 + BLKSK_BASE; 


MACRO 
STEXT = BLOCKCTEXT$S_BLOCK_LENGTH,BYTE) FIELD (BLK 


$2_FIELDS 
: TEXT$2Z—FIELDSS 
FIELD TEXTSZ_FIELDS = 
: TEXTST_STRING . = CO*BLKSK_BASE, 0, 0, 02 
3 
LITERAL 


TEXTSK_BASE = TEXT$S_BLOCK_LENGTH; 


' 
eee 


* 


Access Control List Entry (ACL) 


Each node has an Access Control List made up of zero or more 
Access Control List Entries (ACL). 


The ACL block is appended to a BLK to make an access control 
List entry. 


! 

i 

i 

: 31 15 0 

— — — + +0 

Ptr to next ACL ACLSV_NEXT 

; — , — — * +3 

Rights to be granted ACLS$L_GRANT 

— samiiiininsisiieaicen ———— —E 

Rights to be denied ACLSL_DENY 

; — ———— 4 

{ Rights to be banished ACLSL_BANISH 

i — ——— — — 245 

: UIC group # i UIC member # ; ACL$W_UIC_MEMBER 
: : ‘ H ACL$W_UIC_GROUP 
: 44 —00 — 22* +19 

: Ptr to first ACLC block: ACLSV_FIRST_ACLC 
— — — »z22 

i 

i 

1 

i 

i 

i 


LITERAL 
ACL$S_BLOCK_LENGTH = 22+BLKSK_BASE; 


MACRO 
SACL = BLOCKCACLS$S_BLOCK_LENGTH, BYTE] FIELD (BLK$Z_FIELDS 
. ACL$Z~F IELDSS 
FIELD ACL$Z_FIELDS = 
ACL$V_NEXT = Q*BLK$K_BASE, 0, 24, 0), 
ACLSL_GRANT = (3+BLKSK_BASE, 8 « Ohe 
ACLS$L-DENY = [7+BLKS$K~BASE 0} 
ACL$L~BANISH = C11+BLKSR_BASE, 6, 32, i, 
ACL$W~UIC_MEMBER = [1S+BLKSK"BASE. 0. 16. 0). 
ACL$W~UIC~ GROUP = {1 *BLKSK BASE. 0. 16, 0], 
ACL$V~FIRST_ACLC = C19*¢BLKSK_BASE, 0, 24, 0] 


TES; 
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LITERAL 
ACLSK_BASE 
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= ACL$S_BLOCK_LENGTH; 
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* 


Access Control List Criterion (ACLC) 
31 15 


a os +0 
‘ ‘ 


Type { Ptr to next ACLC : ACLCSV_NEXT 
ACLCSB-TYPE 

Each ACL may have one or more Access Control List Criterion 
(ACLC) chained from it. 


Each ACLC specifies one user identification criterion for 
the ACL entry. The user must match all the criteria for 
the ACL entry to apply to him. 


An ACLC is appended to a BLK to form the criterion block. 


LITERAL 
ACLC$S_BLOCK_LENGTH = 4+BLKSK_BASE; 
MACRO 
SACLC = BLOCKCACLC$S_BLOCK_LENGTH, BYTE] FIELD (BLK$Z_FIELDS, 
. ACLC$Z_F IELDS) 
hon ACLCSZ_FIELDS = 
ACLCSV_NEXT = OBL KEK BASE. 0, 24, 0), 
ACLC$B_TYPE = *+BLKSK_BASE, 0, 8, OJ, 
LITERAL 
ACLCSK_BASE = ACLC$S_BLOCK_LENGTH; 
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+ 
String Descriptor 


31 15 


oes Soo +0 


i Class : Data Length 
Gewoeoooen ¢oeeooeooe $= seeeesoeeseeces 
+ 


Pointer to data 


} 5 coccce 


MACRO 
* = BLOCK(8 BYTE] 
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+ 
User Control Block (UCB) 


31 15 
be eee mm ee nee we nw er ee eee een meme een + +0 
Pointer to next UCB UCBSA_NEXT 
ee oro +4 
Last User {First User UCBSW_FIRST 
Number Mapped | Number Mapped UCBSW_LAST 


+8  vuCBSV~CCB_BASE 


Ren enema moae wane + —wererrewerenrnececraee= 


ININININININININININININININININ UCBSA_CCB 


we ee ee } cece es  coeece — — 
ee ee ee 


A user's context pointer is an origin 1 index into the CCBs in 
the UCB List. Each UCB can point to UCBSK_CCB number of CCBs. 
If the user passes a context number that doesn't map to an 
active CCB, we tell him it's an invalid context pointer. 


Except in some extreme case, any image will probably never have 


1 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
: more than 4 users active at any one time. But we can handle more! 


ITERAL 
UCBS$K_CCB_BASE 
Cc ccB 


U e ! Number of CCBs/UCB 
UCBSS_BLOCK_LENGTH 


s 8, 
= 4 
= UCBSK_CCB_BASE + UCBSK_CCB * 4; 


MACRO 
suce = BLOCKCUCBSS_BLOCK_LENGTH BYTE) FIELD (UCBS$Z_FIELDS) 


FIELD UCBSZ_FIELDS = 
SET 


CBSA_ xT a 0, e a 8 e 
UCBSW~FIRST = (4° 0; 16. 02. 
— SHEE gol 
= e e 
UCBSA~CCB = (0, 6° 85 05 
LITERAL 
UCBSC_FIRST = BLOCKCO, UCBSW_FIRST; UCB$S_BLOCK_LENGTH, BYTE); 
STRU 


CTURE 
UCBSCCBLI, 0, P, S, EJ] = (UCBSCCB+UCBSK_CCB_BASE+ 


CB_BASE 
(I=, (UCBSCCB+UTBSC"F IRST)<0,16,0>)#4+0)<P,S,E>; 
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oo 


Pool Header Block (PHB) 


secondary extent 


doer 


31 15 

24 20 

: Number | 10u4 : PHBS$B_POOL TYPE 

; : of ¢ slot } Pool ; PHBS$B_LOW_SLOT 

; : slots i: number: type : PHB$B_ SLOTS 
24 +4 

{ Ptr to Last MCB in the pool } PHBSA_LAST_MCB 
- + 8 

{ Number of bytes in each =} PHBSL_EXTENT_SIZE 
' + 


+12 PHBSV_FREE_BLOCK_LIST 


Pools are used to provide space for various in-core block types. 
Blocks that are related are usually allocated from the same pool. 
Th cause pools provide good locality of reference and 
this allocation scheme reduces page faults. 


Each pool consists of one or more extents. Each extent consists of 
a Memory Control Block and the rest of the space allocated to the 
extent. Each pools has a Pool Header Block associated with it. 
This block identifies the MCB List, as well as contains the pool's 
free block List. 


' 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
‘ 
: The free block List is a vector of Linked lists. Each slot in the 
: vector corresponds to a block type. When a block is freed, it is 

: Linked nee its associated free list. When a block is requested, 

; its free list is checked to see if it is non-empty. so, n 

: a block is allocated from it. Otherwise, a block is allocated from 
: one of the pool’s extents. 


LITERAL 
PHB$S_BLOCK_LENGTH = 12; 


MACRO 
eo = BLOCKCPHBSS_BLOCK_LENGTH, BYTE] FIELD (PHBSZ_FIELDS) 


FIELD PHBSZ_FIELDS = 
SET 


PHBSB_POOL TYPE = (0, 0, 8, 0], 
PHBSB_LOW SLOT = (1, 0, 8, 0), 
PHBSB SLOTS = [2° 0: 8. 0 

PHBSA"LAST MCB = (4: 0; 38, 04, 
PHBSLEXTERT SIZE = {8 OF 32. On. 


PHBSV_FREE_BCOCK_LIST 
TES; 


H 
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Memory Control Block (MCB) 


31 15 

7 20 

Pointer to prior memory extent MCBSA_PRIOR 

{ Remaining size } Size of this | MCBSW_ALLOC_SIZE 
: of this extent } extent : CBSW-FREE_SIZE 


44 


Each pool has one or more Memory Control Blocks associated with it. 
This List serves two purposes: 
1) It points to each memory extent we asked LIBSGET_VM for. 
2) af keeps track of memory that has been allocated for 
e pool, but never used. 
LITERAL 
MCBSS_BLOCK_LENGTH = 8; 


MACRO 
ae = BLOCKCMCBSS_BLOCK_LENGTH, BYTE) FIELD (MCBS$Z_FIELDS) 


aay MCBSZ_FIELDS = 
MCBSA_PRIOR = £0, 0, 32, 0) 
MCBSW_ALLOC SIZE = (4, 0, 16, 83 
* MCBSW_FREE_SIZE = (6, 0, 16, 0) 
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* 


Hash Control Entry (HCE) 


Ce ne es 1.9 


HCEs are found in each user's CCB. Each HCE forms one hash 
bucket. We keep some statistics on the buckets in an attempt 
to tune the hash function. 


' 

i 

i 

: 31 15 

: - ee eae aie +0 

; Forward homonym pointer HCESA_NEXT 

: H ' 

‘ Backwards homonym pointer =; HCESA_PRIOR 

: 

: { # blocks ever | # times bucket! HCESW_HITS 

4 ‘stored in bucket: accessed : HCESW_BLOCKS 

' ù—— a +1 2 

i ! Max blocks ever! # blocks now ! HCESW_CUR_LENGTH 
: : in bucket chainiin bucket chain: HCESW_MAX_LENGTH 
: 

: 

i 

i 


— 


TERAL 
HCESS_BLOCK_LENGTH = 16; 
CRO 
pce = BLOCKCHCESS_BLOCK_LENGTH BYTE) FIELD (HCE$Z_FIELDS) 


FIELD HCESZ_FIELDS = 
SET 


HCESA_NEXT = £0, 0, 33. : ; 
HCESA_PRIOR = (4, 0, 32, 0), 
HCESW_HITS = (8 0. 16. 0 
HCESW_BLOCKS > 16, 6. 14, 04, 
HCE$W~CUR_LENGTH = £12, 0, 16, 0 ; 
HCE $W~MAX~LENGTH = (14: 0; 16. 
TES; 
LITERAL 
HCESK_HOMONYM_LIST BLOCKLO, HCESA_NEXT; , BYTE); 


aa 
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Hash Control Block (HCB) 


— —— — +0 

Forward homonym pointer HCBSA_NEXT 
A oh 

{ Backwards homonym pointer | HCBSA_PRIOR 
PS 9— 

Hash key HCBSV_HASH_KEY 
— — — — Ta 

Rest of hash key 
nes ti 

; Pointer to object block HCBSA_BLOCK 
4220 


AL 

CBSK_PCB_NUMBER = 1, !' Hash type is page —, 
HCBSK_LCCB_CODE = 2, ! Hash type is location c 
HCBSK_LCCB_ ADDRESS = 3, : —*8Z = Spe is gas tty disk — 
HCBSK_KEY_CENGTH 2 's a hash key 
HCBSS"BLOCK_LENGTH = 20; 


“Suc = BLOCKCHCBSS_BLOCK_LENGTH, BYTE) FIELD (HCBS$Z_FIELDS) 


FIELD HCBSZ_FIELDS = 
SET 


HCBSA_| = » 3. 01. 
Hite “RASH EY . 09.” 
4 HCBSA~BLOCR = J 6. $2,° 63 
LITERAL 
HCBSK_HOMONYM_LIST = BLOCKLO, HCBSA_NEXT; , BYTE); 
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Context Control Block (CCB) 


31 15 
irene nati: ͤ / weeny 
Flags 
ST | 
Pointer to first LCB 
H in temporary lock List ‘ 
Pointer to last LCB 
: in temporary lock list ' 
{ User ID =} _User ID for } 
: : lock manager : 
gewoon ws ee ene ees peer ce wm ewer aewcen $+ 
Next location code 
‘ number to be assigned ‘ 
{ Ptr to NCB for file's 
: CDDSTOP node ' 
pf ewammsroeewtoer cures morannecsmenaamanees + 
NCB of CDDSLOGIN 
: node : 
$eerrerr or eecnmeocacwmemrneneoc enon aecocce + 
Ptr to current FCB 
: for user H 
+ See see eee®renrn rs ese Se BF Bee see weer ewe owe = oo 
Ptr to highest cluster 
: in cache : 
pees ! soos ese men emeemec amass ame} 
Ptr to last highest 
H cluster in cache : 
fowermeeorcweencoweoce seer ane om @eeman} 
Status of current 
: transaction i 
ewe ene Sem nee EEO RO RE Rew eee ewe} 
Ptr to CCB's pool header 
a SE 


Ptr to first 


+0 


+6 


+8 


+12 


+16 


+20 


+24 


+28 


+32 


+36 


+40 


264 


+48 


€ 
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CCBSW_FLAGS 
CCBSA_FIRST_LOCK 
CCBSA_LAST_LOCK 
CCBSU-USERZID 
CCBSL_NEXT_LCC 
CCBS$A_CDDSTOP_NCB 
CCBSA_LOGIN_NCB 
CCBSA_CURRENT_FCB 
CCBSA_FIRST_CIB 
CCBSA_LAST_CIB 
CCBSL_STATUS 


CCBSA_POOL 


CCBSA_FIRST_SPB 
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Security Preservation Block ;} 


- +5 


Ptr_to Last CCBSA_LAST_SPB 
Security Preservation Block | 
— ——— — —— — 256 CCB$V HASH BASE 


ININININININININININININININININ 


aceecs } cocccs } cocces $ se 


eccece } cocece 


— esate once aw ao seo eee + 


The hash table consists of a number of hash entries. 
See the HCE description for the format of these entries. 


LITERA 
CCBSK K_HASH TABLE SIZE = 151, 
CCBS$S_BLOCR_LENGTH = 56 + (CCBSK_HASH_TABLE_SIZE * HCES$S_BLOCK_LENGTH); 


CRO 

Bcce = BLOCKCCCBSS_BLOCK_LENGTH,BYTE] FIELD (CCBSZ_FIELDS) 

FIELD CCBSZ_FIELDS = 
SET 

FLAGS 


! Stream is corrupt 


oouwo 


UOOCOOOCOCOOCOCOCOULR Ws 


BSA_POOL 
BSA_FIRST_SPB 
BSA_LAST_SPB 
BSV"HASH_BASE 


AMBDLEOSOMOLOOSA® © 2 © 
RD hd ed Mad hid id hd he ⏑⏑ 
ese eeeee eens 


MUS & SWWINNIN | | OLOO 


ese ©@e 8s 8se8e 8s 8&8 8&8 & & 


. 
AOQOO 
88888 


CCB$S_HASH_BASE = BLOCK 


CCBSK_LOCK_LIST = BLOCKLO, 
CCBSK_ “tO USTER LIST = BLOCK(O, 
CCBSK~SPB_ cist = BLOCKLO, 


STRUCTURE 
CCBSHASHCI, 0, P, S, EJ = 


" 
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(CCBSHASH*+CCBSS_HASH_BASE+0+(1*HCESS_BLOCK_LENGTH) )<P,S,E>; 


LITERAL 
CCBSM_CORRUPT = 1*1 = 1°0; ! Stream is corrupt 


N 
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ir: 

: Page Control Block (PCB) 

i 

i 31 15 

: a ee +0 

Page Number PCBSL_PAGE _NUMBER 
! aa a) 44 

i ! Paging file { Page flags } PCBSW_FLAGS 

: : block number ;: H PCBSW_ BLOCK _NUMBER 
; [eee etnies | +8 

i Pointer to page PCBSA_BUFFER 

: : when in virtual memory H 

: — — — — 212 

i Pointer to PCB of PCBSA_NEXT_CLUSTER 
4 H next page in cluster : 

— — —— +16 

i Pointer to CIB of PCBSA_PORTAL_CIB 

‘ : cluster's portal page ' 

: airs +20 

; Ptr to page’s FCB PCBSA_FCB 
———42 

{ Pointer to page's Bf8 PCBSA_BCB 
— — — $28 

i Pointer to first PCBSA_FIRST_LCCB 

: : LCCB in page cluster H 

: — —— —— — +32 

i Pointer to Last PCBSA_LAST_LCCB 

4 : LCCB in page cluster : 
es 1.) 

i A Page Control Block (PCB) exists for every page in the cache, 
: and for pages that only have presence locks on them (thus they're 
; not in the oteging cache). Portal pages have a Cluster Information 
: Block (CIB) appending to their PCB. 

Lo 

LITERAL 


PCB$S_BLOCK_LENGTH = 36; 


CRO 
we = BLOCKCPCBSS_BLOCK_LENGTH BYTE) FIELD (PCBS$2Z_FIELDS) 


1 
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FIELD PCBSZ_FIELDS = 
SET 


PCBSL_PAGE NUMBER = (0, g. 32, 34; 
PCBSW_FLAGS = (4, 0, 16, 03, 
PCBSV_MODIFIED = (4, — 1, OJ, ! Must write back to dict. 
PCBSV_NEW_ PAGE = (4, 3, 1, 0J, ! Page was in free chain 
PCB$V_READ_ONLY = (4, 4, 1, 0], ! Page is read only 
PCBSV_FREE_PAGE = (4, 5, 1, 0], ! Page is a free page 
PCBSV_AVAICABLE = (4, g. 1, 01, ! Page available in cache 
PCBS$V_PORTAL_PAGE = (4, 7, 1, 0] ! Page is portal page, CIB follows 
PCBSW-BLOCK RUMBER = £6. 0. 18. gj. 
PCBSA_BUFFER = (8 3 
PCBSA_NEXT CLUSTER = £12, 6, 38, 05, 
PCBSA_PORTAL_C1B = £16, 0, 32. 0]. 
PCBSA_FCB = Se 0, . OJ, 
PCBSA_BCB = 4, 0, 3 6 0J, 
PCBSA_FIRST_LCCB = 633 0, 32, 0), 
PCBSA_LAST_CCCB = (32, 0, 32, 0) 
TES; 
LITERAL 
PCBSK_LCCB_LIST = BLOCKCO, PCBSA_FIRST_LCCB; , BYTE); 
LITERAL ; 
PCBSM_MODIFIED = 1°1 - 140, ! Must write back to dict. 
PCBSM_NEW_PAGE = 1*%4 - 143, ! Page was in free chain 
PCBSM_READ_ONLY = 1*5 - 1%, ! Page is read only 
PCBSM_FREE_ PAGE = 1°6 - 145, ! Page is a free page 
PCBSM_AVAICABLE = 1*7 = 1%6, ! Page available in cache 
PCBSM_PORTAL_PAGE = 1*8 = 1°7; ! Portal page, CIB follows 


+ 
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Cluster Information Block (CIB) 


31 15 


twee wr eee nee ren ene pee ene ee mew wee wan} 
Cluster 
: flags 
eons eee ne eee see ate reonme ee neem e ane 
Retrieval lock Presence lock 
ref count ' ref count 


Se eeeeeseoeee@ aan e toon eeeee ae oeeoenr = 


Delete lock t Update lock 
ref count H ref count 


eoeeceoe es 


—— 


Pointer to first 
deleted child cluster 


Pointer to Last 
deleted child cluster 


55— —— —— 


Ptr to newest lock 
granted for this page : 


Ptr to oldest lock 
granted for this page 


Ptr to next cluster 
at this directory level 


Ptr to prior cluster 
at this directory level 


at next directory level 


Ptr to last cluster 
at next directory level 


Ptr to CIB in next 
highest directory level 


———— ee ee ee ee eee 


+ 
+ 
: 
+ 
' 
Ptr to first cluster 
+ 
: 
H 
: 
+ 
+ 


Ptr to portal CIB 


+0 


+4 


+8 


+12 


+16 


+ +20 


+ +24 


+28 


+32 


+36 


+40 


+44 


+48 
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CIBSW_FLAGS 
CIBSV_REF _COUNTS 


CIBSW_PRESENCE_COUNT 
CIBSW_RETRIEVAC_COUNT 


IB$W_UPDATE_ COUNT 
IBSW_DELETE~ COUNT 


; 
CIBSA_FIRST_DELETED_C1B 
CIBSA_LAST_DELETED_C1B 
CIBSA_LAST_LCB 
CIBSA_FIRST_LCB 
CIBSA_NEXT_SIBLING 
CIBSA_PRIOR_SIBLING 
CIBSA_FIRST_CHILD 
CIBSA_LAST_CHILD 


CIBSA_PARENT_CIB 


CIBSA_HISTORY_CIB 


1 
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tin cluster holding history List | 


ay 52 


Ptr to NCB for the H CIBSA_OWNER_NCB 
node that owns this cluster H 


— — — — +56 


Ptr to cluster’s pool header CIBSA_POOL 


224260 


—E coecce 


Each clusters’ portal pase has a CIB associated with it 
This block is physically appended to the PCB of the sluster* 5 
portal page. 


The CIB also points to the cluster's pool header. 


The CIBSV_REF_COUNTS Lists must have each of the lock ref counts 
mn the same order as the LOCKSK_xxx lock request symbols. 


TERAL 
CIB$S_BLOCK_LENGTH = 60 + PCBS$S_BLOCK_LENGTH; 


MACR 
SCIB = BLOCKCCIBSS_BLOCK_LENGTH, BYTE) FIELD yp 3 


%; 
FIELD CIBSZ_FIELDS = 
SET 


me 


CIBSW_FLAGS = [O+PCB$S_BLOCK_LENGTH, 0, 16, 0), 
CIBSV~ ~[OCkED. DELETE = [O+PCBSS-BLOCK-LENGTH, 0. 1, 0], 
C1B$V~LOCKED-UPDA = [O+PCBSS~BLOCK"LENGTH. 1, 1. 01. 
CIBS “LOCKED-RETRIEVAL = [0+PCB$S~BLOCK~LENGTH, ¢- 1; 01; 
CIBSVLOCKED-PRESENCE = CO+PCBSS"BLOCK-LENGTH, 3. 1. 0]. 
CIBSV“LOCKED = [CO+PCBSS-BLOCK-LENGTH. 0. 4. 01. 
CIBSV“LOGIN = CO+PCB$S"BLOCK“LENGTH. 4. 1. 0). 
C1B$V~COMPLETE = CO+PCBSS"BLOCK"LENGTH. 5. 1. 02. 
CIBSV"NEW = O+PCBSS_BLOCK-LENGTH, 6. 1; 03. 
CIBSV~REF_COUNTS = [4+PCBSS"BLOCK"LENGTH. 0. 0 03 
CIBSWIPRESENCE COUNT = [4+#PCB$S“BLOCK"LENGTH, 0. 16, i, 
CIBSW"RETRIEVAC COUNT = [6+PCBSS"BLOCK“LENGTH, 0. 16, : ; 
CIBSWUPDATE_COONT = [8+PCB$S"BLOCK-LENGTH, 0, 16 
CI1BS$W~DELETE~ COUNT = [10+PCBSS_BLOCR_LENGTH, 6, 16, 04, 
CIBSA-FIRST DELETED_C1B = [12+PCBSS~BLOCK-LENGTH. 0. 32. 0]. 
CIBSA-LAST_DELETED_CIB = (16+*PCBS$S~BLOCK"LENGTH, 0. 32. 0), 
CIBSA“LAST“LCB = PCB$SBLOCK~LENGTH, 0. 32. 0). 
CIBSA“FIRST_LCB = [24+PCBS$S"BLOCK"LENGTH. 0. 32. 0). 
CIBSA-NEXT SIBLING = PCB$SBLOCK"LENGTH, 0. 32. 0). 
CIBSA~PRIOR_ SIBLING = (32+PCBSS“BLOCK"LENGTH. 0. 32. 0). 
CIBSA~FIRST~CHILD = SS"BLOCK"LENGTH. 0. 30. 0). 
CIBSATLAST CHILD = [40+PCB$S~BLOCK“LEN > 32. 02. 
CIBSA~PARERT_CiB = [4 Moi tte “BLOCK“LENGTH. 0. 32. 0). 
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CIBSA_HISTORY_CIB $9eP cess _BLOCK_LENGTH, , 01, 
CIBSA_OWNER_NCB = [58 +PCB$S_BLOCK_LENGTH, 0, 32, 0J, 
* CIBSA_POOL 6+PCB$S_BLOCK_LENGTH, 3 
LITERA 
—RXE  LOCK_LIST = BLOCKCO, CIBSA_LAST_LCB; , BYTE), 
CIBSK-SIBLING LIST = BLOCKCO, CIBSANEXT-SIBLING; , yt 1, 
CIBSK-CHILD_LTST = BLOCKCO, CIBSA_FIRST_CHILD; , BYTE); 


LITERA 


CiBSM LOCKED ~PELETE = 1*1 = 140, 

CIBSM_LOCKED_UPDATE = 3 - 1*1, 

CIBSM_LOCKED_RETRIEVAL = 1%3 - 34 

CIBSM_LOCKED_ PRESENCE = 1%4 - 1°3, 

CIBSM_LOCKED™ = 1*%4 = 1°0, 

CIBSM_LOGIN = 1°5 = 1%4, ! Cluster is on login path 

CIBSA_ -COPLETE = 1°6 = 1%5, i Cluster is complete in cache 
CIBSM_ oor @ 7s. i Cluster read in this transaction 
CIBSM_ “HISTORY = 1°8 - 1*%7; i History List is in cluster 


> 


LITERAL 


FIELD 
SET 


TES; 


CODLIB.B32;1 


Lock Control Block (LCB) 


31 15 


— en aw onmmeretret¢ewmeee ence enone ns 


Block's flags Lock Type 


Seeeeeeeeeeonenanane + — —— — — —— 


Ptr to prior LCB 


Ptr to next LCB 


Ptr to locked CIB 


Ptr to next lock 
in transaction lock list 


Ptr to prior lock 
in transaction lock List 


I oes 


— — 
} 555 5 5 


+0 


+4 


+8 


+12 


+16 


+20 


+24 


16 
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LCB$W_LOCK_TYPE 
LCBSW-FLAGS 
LCBSA_PRIOR_LCB 
LCBSA_NEXT_LCB 
LCBSA_CIB 


LCBSA_NEXT_LOCK 


LCBSA_PRIOR_LOCK 


LCBs are used to keep track of which locks exist on a cluster (CIB). 


Each LCB is Linked to its CIB, and to other LCBs for that cluster. 
When an LCB is granted, it is placed in the transaction's 
lock List until the transaction terminates. 


LCB$S_BLOCK_LENGTH = 24; 


LCBSZ_FIELDS = 
LCBSW_LOCK_ TYPE 
L AGS 


LCBSA"NEXT_ LOCK 
LCBSA~PRIOR_LOCK 


CRO 
rhe = BLOCKCLCBS$S_BLOCK_LENGTH,BYTE) FIELD (LCBS$Z_FIELDS) 


' Allocated in current transaction 


CODLIB.832;1 


LITERAL 
LCBSK 


-bocK List 
LCBSK_TEMP_LOCK_LIST 


LITERAL 
LCBSM_CURRENT 


= settee LCBS 
= BLOCK LCBSA 


= 1*2 - 1*1; 
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A_PRIOR_LCB; , MERE 
“NeXt TLCOCK; ¢ BYTE); 


! Allocated in current transaction 


CODLIB.B32;1 


+ 


Location Code Control Block (LCCB) 


Location codes are used to provide 
user to identify a 
associated with an 
assigned location c 
1) 
2) 


3) 


pers teul or object. 
ccB. 
ode: 
Entities 

Lists 


Nodes 


' 

i 

i 

: 

; 31 15 0 

; » Saipes cccccccccee— +0 
Location code number 

; a eee +4 
{ LCCB { Block { LCCB flags ! 

; : type : type : ' 

; naa amine ct ais 48 
Object’s disk address 

; bonen enn nnn nen ee nen nennnnennnnnnnt 1 2 
i Pointer to object 

; : in virtual memory : 

: etter earn encanta —9— + 1 6 
i Pointer to PCB 

: : for page which holds object 

i Pointer to next 

: ‘ LCCB in cluster ' 

i Pointer to prior 

: : LCCB in cluster ' 

; : DPTR of last block ; 

4 + returned by FIND_NEXT : 

: : (0 if not used yet) : 

i 

i 

i 

i 

i 

i 

i 

i 

i 

i 

i 


LITERAL 
LCCBS$S_BLOCK_LENGTH = 31; 


MACRO 


H 1 
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LCCBSL_LOCATION_CODE 


LCCBSL_OBJECT/LCCBSV_OBJECT 


LCCBSA_OBJECT 
LCCBSA_PCB 
LCCBSA_NEXT_LCCB ! Virt addr 

' must be 

' 0 mod 4, 

' for queue 
LCCBSA_PRIOR_LCCB ' instructions 
LCCBSV_LAST_BLOCK 


a@ convenient means for the 


Each location code is 


The following objects may be 


1 
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aces = BLOCKCLCCBSS_BLOCK_LENGTH, BYTE) FIELD (LCCBSZ_FIELDS) 


hoes LCCBSZ_FIELDS = 
LCOS OCAT 1ON_CODE 


LC 
LCCBSV“AVAILABLE 
L ST_SCAN 
LCC T 


-GHOS 
LCCBSV_DIRECTORY 
LCCBSV_TE 


SCOSCOCONOUSWN COO 


OSOoooce «©*22e2e 8s eeeeseeee 8 


Sooooooco°oo 
OOMAGOOO 


DOOOOWR — Ks 
es 


PRIN 00 — — — — ————2— 
Lv 8 
eses 


POW ERR 2 ee ee eee ts OT 


SPOOR « 


“ 

— 

1 
nunnnnnnnnnnnnnnnnnun 
ees ees 


GCOfOORrR © ese eeseseseeeeees 


RNIN DONA LS LLL EE EO 


LCCBSA_PRIOR LCCB 
LCCBSV_LAST_BLOCK 


TES; 

LITERAL 
LCCBSK_LCCB_LIST = BLOCKCO, LCCBSA_NEXT_LCCB; . BYTE]; 

LITERAL 
LCCBSM_AVAILABLE = 1*1 - 1°0, ! Object's virtual addr is known 
LCCBSM_MUST_SCAN = 3 —1 ' Protection tree must be scanned 

CCBSA_ T = 1*3 - 3 ' LCCB may not be fetched by LC 

LCCBSM_DIRECTORY = 1%4 - 143, ! Directory NCB 
LCCBSM_TERMI = 1*5 = 1%4, ! Terminal NCB 
LCCBSA_ TY_ATT = 1.8 1 ! Entity attribute LCCB 
LCCBSM_ENTITY_LIST_ATT = 1*7 - 3 ' Entity list attribute LCCB 
LCCBSM_ENTITY_LIST = is — ! Entity list ECCB 
LCCBSM_STRING_LIST_ATT = 1*9 = 1°8, ! String List LCCB 
LCCBSK_LCCB_TYPE_FIRST = 1, 
LCCBSK_NCB = 1, ' LCCB includes NCB 
LCCBSK_ECCB = 2, ' LCCB includes ECCB 
LCCBSK_LCCB = 3, ! LCCB 
LCCBSK"LCCB_TYPE_LAST = 3; 
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* 


Entity Cell Control Block (ECCB) 


31 15 0 
meme +0 ; 
{ Cell number | ECCBSW_CELL 
+ Se + 2 
{ DPTR of this cell's } ECCBSV_LST 
‘ LST block H 
Gewoeeeooe}oeoceeeoosooeooesooeocoese} + 5 
Ptr to LCCB of the ECCBSA_PARENT_LCCB 


List that owns this cell 


Each cell in an entity List may be assigned a location code. 


This block is appended to the location code's LCCB to name the 
specific cell represented by the location cone. 


LITERAL 
ECCBSS_BLOCK_LENGTH = LCCBSS_BLOCK_LENGTH + 9; 
MACRO 
MSECce = BLOCKCECCBSS_BLOCK_LENGTH, BYTE) FIELD (ECCBSZ_F IELDS 
LCCBS2—FIEL ts 
1: 
FIELD , ECCBSZ_FIELDS = 
ECCBSW_CELL 0+LCCB$S_BLOCK_LENGTH, 0. 16, 0), 
ECCBSV“LST gr CCBSS “BLOCK“LENGTH, 0, @4 0), 
A ECCBSA~ PARENT Accs aati tte “BLOCK"LENGTH, 0. 32, 0) 


14 
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te 

: Node Control Block (NCB) 

i 

: 31 15 

: eee +0 

i ' User's access rights NCBSL_ACCESS_RIGHTS 
: : to this node H 

; - 7a enemies +4 

i Access rights granted NCBSL_ACCESS_GRANTED 
: : by this node's ACL H 

i Access rights denied NCBSL_ACCESS_DENIED 
: : by this node's ACL : 

: ‘re eee nemeea — — me +4 2 

i Access rights banished NCBSL_ACCESS_BANISHED 
: : by this mode's ACL : 

‘ : H 

i : Pointer to parent : NCBSA_PARENT_NCB 

: : NCB block : 

' iPswrd'si Pswrd's: Entity's ' NCBSW_ psu. LENGTH 

$ iclass : Sate | password H NCB$B_PSW_DTYPE 

! H : type : Length ; NCBSB_ psu CLASS 

i Pointer to entity's NCBSA_PSW_POINTER 

4 H password string H 

4 ‘Name's {| Name's ; : NCES NAME _LENGTH 

: iclass : data i: Entity name's ; NCBS$B_NAME_DTYPE 

‘ : i type : Length : NCB$B_NAME_CLASS 

‘ H : 

i : Pointer to entity's : NCBSA_NAME_POINTER 
4 : name string : 

i Pointer to NCBSA_SPB 

4 : Security Preservation Block ; 

i 

The LCCB for a node is followed by an NCB. This gives additional 
: information needed for the node. 

LITERA 


NCBSS -BLOCK_LENGTH = 40+LCCBS$S_ BLOCK LENGTH; 
MACRO 
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SNCB = BLOCKCNCBSS_BLOCK_LENGTH, BYTE) FIELD (LECBSZ OF IEL — 
1: 
FIELD NCBSZ_FIELDS = 
NCBSL_ACCESS_RIGHTS = OL CCBSS BLOCK LENGTH, » 32. 0). 
NCBSL-ACCESS_ GRANTED = [4+LCCBSS"“BLOCK“LENGTH. 0. 32, 01. 
NCBSL-ACCESS_DENIED = BL CCBSS BLOCK"LENGTH, 
CBSL-ACCESS-BANISHED = [12¢LCCBSS_BLOCR_LENGTH, 0, 4 i, 
CBSA~PARENT NCB = [16+LCCBSS-BLOCK-LENGTH. 0. 32. 01, 
NCBSV_PASSWORD = st eCB SS BLOCK LENGTH, > 0 
NCBSW"PSW_LENGTH = [20+LCCBSS"BLOCK“LENGTH. 0. 16, 04, 
NCBSB_PSW_DTYP = +LCCBSS_BLOCK_LENGTH, 0, 8, 8 ° 
NCBS$B_PSW” CLASS = [O3+LCCBSS-BLOCK-LENGTH, 0, 
NCBSA-PSW~POINTER = [24+LCCBSS-“BLOCK-LENGTH, 0. 32, aE 
NCBSV-NAME = [28+LCCB$S"BLOCK-LENGTH. 0. 0, 0 
NCBSW"NAME_LENGTH = B+LCCBSS-BLOCK LENGTH, ; 16, 04, 
NCBSB_NAME -DTYPE = C30+LCCB$S"BLOCK“LENGTH. 0. 8, 0], 
NCBSB_NAME~ CLASS = [31+LCCBSS-BLOCK-LENGTH, 0. 8. 0 
NCBSA_NAME POINTER = (32+LCCBSS“BLOCK-LENGTH, 0. 32, 03, 
NCBSA-SPB ~ = [36+LCCBSS-BLOCK-LENGTH., 0, 32. 03 


+ 


— —— ee — — — — — — — — — — — tt te tte Le 


CODL18.832;1 


File Control Block (FCB) 


31 15 
— —— 22 
File’s flags Channel 

: : number 
re ae oe 
1 File 1 Disk gg *ater to 
iWunber ‘ CDOD$TOP entity 

' First : words of 

: the file's FID 

rr Sb CR ee es ee oes > Sm eS OS eo Se ot a S&S ow we oe 
‘ File ID from Last word of 
‘ lock manager ‘ file's FID 

1 Pointer to first 

‘ prewal located free page 
i‘Name*s | Name's ; Entity's 
iclass i! data : file name 

: i type } Length 


Pointer to entity's 
ilename string 


DKEY of block which 
points to this file 


4 


$e meee wet — 
‘Name's : Nane's Entity's 
iclass } Cote i file name 


i type : Length 


teeme me prewar enemcocceses 


Pointer tc entity's 
full filename string 


2224 


Pointer to temporary 
free page List 


+ SP®S Sl TOS SS TBST SSeS 


5—— — ——— — ——— —— — — 


Each active (open) dictionary file 


m1 
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+0 


+4 
BS$V_CDD$TO 
BSB_FILE TRUNBER 
+8 
FCBSV_FID 
+12 
FCBSW_LOCK_ID 
+16 
F CBSA_FREE_PAGE 
+20 FCBSV_FILENAME 
FCBSW_ FILE_LENGTH 
FCB$B_FILE_DTYPE 
F Case FILED CLASS 
+24 
FCBSA_FILE_POINTER 
+28 
FCBSL_OWNER 
+32 pceey FULLNAME 
CBSW- oon LENGTH 
FCBSBcF L-DTYPE 
FCBSB_ Futt CLASS 
+36 
FCBSA_FULL_POINTER 
+40 
F CBSA_TEMP_FREE 
+44 


has an FCB. 


The FCBSL_OWNER field holds the DKEY of the gttribute block (FIL) 
yhich potited to the file. 
0, w 


The primary dict 
files that are not currently pointed to 


onary file has key 
ave a value of -1 
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A in the owner field. 


—XX _FILE_LIMIT = 375. 
—E8 “BLOCK LENGTH = 44; 


MACRO 
ce = BLOCKCFCBSS_BLOCK_LENGTH,BYTE) FIELD (FCBSZ_FIELDS) 


FIELD FCBSZ_FIELDS = j 
F CBSW_CHAN — 


00 -000 


OOOOOOGOCOOOCOOO: ++ sss & 


wots 
ee 


ie tte © Ln 
. ee s 


aad 

m 

za 

oe 

po 

= 
nonnnnnnnnnnnnnnnnnnn 


V_ 
SOUP 


ses 8s 8s 88s 8seeeeseeesees & 


FWWAWIWNIWIPNIPONONYINY = 2 ONLENINNG 


Sows OwOowisOwoor « 


wie «© 
. 


F CBSA_TEMP_FREE 
TES; 


LITERA 
: BSH ~READ_ONLY = : 


C ! File can only be opened for read 
CBSM_ROOT™ F 


t 
“1; ! cB is the root dictionary file 
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1+ 
Pre-Allocated Page Block (PAPB) 


31 15 


deme wren cee m eames enn moo ew eon} +0 


Pointer to next PAPBSA_NEXT 
BCB 


Number of free page PAPBSL_NUMBER 


eccece } cocece 
eccece $ cocece 
+ 
= 


poet ee em me me ee momo me Ente mmm ewe Eee} +8 


! 
' 
! 
! 
{ 
1 
J 
! 
1 
i 
i 
' 
! 
J 
1 
1 
: oe i ee pees are represented = PAPBs Linked onto the 
: B in which the pages reside. Each PAPB has the page number 
: F the free page it represents. 

LITERAL 

PAPB$S_BLOCK_LENGTH = 8; 


MACRO 
ower BLOC#TPAPBS$S_BLOCK_LENGTH,BYTE] FIELD (PAPB$Z_FIELDS) 


FIELD PAPBS$Z_FIELDS = 
SET 


PAPBSA_NEXT = 
_PAPBSL_ NUMBER = 


11 
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——— eee eg 
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+ 


Buffer Control Block (BCB) 


31 15 0 

poems esoe neces en wme ances ec men mee aoaae $ +0 

Pointer to next BCBSA_NEXT 
' BCB ' 

¢teroe em meeaneesnen seem etree ecanmacem aca a + 44 

Pointer to prior BCBSA_PRIOR 
: BCB ' 

$e eeeeeeocoeoeoeeoesocan Se Ow OTe Bae wae wed +B 

; Pointer to buffer BCBSA_BUFFER 
; Pointer to PCB BCBSA_PCB 
— for page within buffer H “16 


The buffer control blocks (BCBs) are used to control the pages 
that are in memory. 


The BCBs are Linked into a queue. When a buffer is needed, the 
last buffer in the queue is assigned. 


The — | ey PCB ——5 information about the page and the 
ffer. > ee is modified while in the buffer, the page 
is po, back to the work file before the buffer is reused. 


LITERAL 
BCBSK NUMBER = 16, !' Number of in-core buffers 
BCBSS_BLOCK_LENGTH = 16; 

MACRO 


=» BLOCKCBCBS$S_BLOCK_LENGTH, BYTE) FIELD (BCB$Z_FIELDS) 


FIELD BCBSZ_FIELDS = 
SET 
NEXT 
BCBSA_PRIOR 
BCBSA_ “BUFFER 
« ,BCBSALPCe 


LIT 


ERAL 
BCBSK_BUFFER_LIST BLOCKCO, BCBSA_NEXT; , BYTE); 


WEL OPS eR: eae e em ane 
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+ 


User Retrieval List Entry Block 
31  teeged 7. © 


teen em w mmm mete wm nen men teense snet +0 
' — 


URLC$B_COUNT 
URLC$V_UNUSED 
+4 


Unused Count 


i es 


User Retri lL List Entry _Block 
31 ser sy eva bes n "Y, oc 0 


er os +0 


Attribute Name H 
URLESL_ATT/URLESL_CELL 


‘ or 

' Cell Number 

¢eewonsa wo ¢ emacs on af omwm emma wee poe anaccaces + 4 

H H Data ' URLESW_DATA_TYPE 

: Reserved H Typ ' 

: H Expected ' URLESW_RESERVE 
I oe fomowaacan + +8 

' Returned Status URLESL_STATUS 

bm eo enn peo nem oe pose mmeaabt aman mmm } 1 2 

‘ ' * th ' URLESW_USER_LENGTH 
+ Returned Length : H 

: : User “But fer H URLESW_RETURN_LENGTH 
$oocece wen tener cer acae rer — * 1 6 

' Address of ' 

: User Buffer or H URLESA_USER_BUFFER 
agen ing Descriptor ; +20 


LITERAL 
URLC$S_BLOCK_LENGTH = 4 
URLE$S"BLOCK_LENGTH = 


“*Sun.c = BLOCKCURLCS$S_BLOCK_LENGTH, BYTE] FIELD (URLCS$Z_FIELDS) 


rn URLCSZ_FIELDS = 
URLC$B_COUNT = £0. 
5 URLCSV_UNUSED = [1, 0; 


MACRO 
pe = BLOCKCURLESS_BLOCK_LENGTH BYTE) FIELD (URLESZ_FIELDS) 


FIELD  URLESZ_FIELDS = 
SET 
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URLESL_ATT = 0, + i 
URLESL “CELL = (0, 0, 32, 03, 
URLESW-DATA. TYPE = (4, 0° 16. 02. 
URLESW"KESERV 2 6. : 18. , 
URLESL “STATUS = 32° 0 
URLESW-USER LENGTH = (12, 6, 16, 04, 
URLE SW “RETURN LENGTH = (14. 0- 18. / 
URLESA-USER_BOFFER = (16, 0. 32, 0 
TES; 
STRUCTURE 


URLSBLOCK (1) = CURLSBLOCK + URLC$S_BLOCK_L NGTH + 
* URLESS_BLOCK LPENGTRD ); 


a i: SE 
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+ 


Write Control Block (wCB) 


1/0 status blk {1/0 status blk 


$e cere a os +1 6 


' 4th word of 3rd word of 
: 1/0 status blk 11/0 status blk } 


— — 22222224 +20 


1 

; 

i 

: 31 15 0 

: H 

i ; F lags ‘Number of pages: WCBSW_SIZE 

4 : tin write ¢ WCBSW_FLAGS 

‘ — nm eee mown mamma nb oman mw wen cen owa t +4 

' . : 

‘ Ptr to page’ WCBS$A_OLD_BuF 
: H permanant uffer ' 

' — RPO Pw BO OOO Oe Ree ewe} ok 

i 

: Ptr to page's WCBSA_NEW_BUF 
; H location in write buffer H 

: ——— — — — +1 2 WCBSV_IO_STATUS 
‘ 2nd word of { Ist word of | WCBSW_I0_STATUS 
: 

i 

i 

i 


TERAL 
WCBSS_BLOCK_LENGTH = 20; 


MACRO 
we = BLOCKCWCBSS_BLOCK_LENGTH, BYTE] FIELD (WCBSZ_FIELDS) 


re WCBSZ_FIELDS = 


WCBSW_SIZE = (0, 0, 16, 0), 
WCBSW_ = e 0, 16, Je 
WCBSV_WRITABLE = (2, 0, 1, 0J, ! Write group to file 
WCBSV_ = (2, 1, 1, 03, | Group of pages 
WCB$A_OLD BUF = (4, 0. ; . Ol, 
WCBSA_NEW BUF = (8 8 - 
tate 10. STATUS = 18, 6, 
WCBSW~IO0~STATUS = (12; 0. 16, 04 
TES; 
LITERAL 
WCBSM_WRITABLE = 1*1 = 1*0, ! Write group to file 


WCBSM_GROUP = 1*2 = 1°1; ! Group of pages 


— 
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* 


Attribute Name Block (ATNM) 
31 30 29 28 27 26 16 15 


Foeoetoeetoeet}oe}oe}ooeeceeooeooooesooooeeon ¢eoeeesecoeeeoeooeoeocecescocoeecescs } 
' ‘ ‘ 
' 


H Protocol number Attribute number 


' 
' 
' 
i 
' 
' 

+ 


— — 
5 
5 


— 


bbdrost ined attribute 
*6obol attribute 
— — Customer-def ined attribute 


The attribute name block defines the break down of the 

attribute name. Bits 0 to 15 contains the number. Bits 16 

to 26 contains the protocol. The nn bits are on 
define the t Sype of of este 'eyte. Bit 27 on lies a sy 

defined attribute 8 on implies a ole al defined. attribute. 
Bit 29 on implies” a RE defined attribute. 


NOTE: If the high order word of the eter ieute name block is 0 
the block is — fede Ke, aceli. That is the protocol will 
equal 0 and the flag bits will equal 0. 


‘ 
‘ 
‘ 
meee 
‘ 
4 


— 
? 
‘ 
+ 
‘ 
4 
1 
t 
’ 
‘ 
+ 


LITERAL 
ATNMSS -BLOCK_LENGTH = 4; 


MACRO 
mee = BLOCKCATNMSS_BLOCK_LENGTH, BYTE) FIELD (ATNM$Z_FIELDS) 


FIELD ATNMSZ_FIELDS = 
SET 


— |_NUMBER 
HIGH_ORD 


ATNMSW_H 
ATNMSV_PROTOCOL 
ATNMSV~FLAGS 
as SYSTEM 


NMSV" GLOBAL 
ATNMSV_CUSTOMER 


hunnnannn 
ees sees 


| H 11 
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Page Number Block (PNB) 
31 18 17 0 


Page Group Size Page Number 


‘ 
HS te et wr ee een eee emma nen own om + Ce mDoemmnwteceroseaeesaon See were ee owe 


* 


‘ ' 
‘ ‘ 
‘ ' 
‘ ‘ 
‘ ‘ 
‘ ' 
+ + 


The page number block define the break down of the page number. 
Bits 0 to 17 is the page number. Bits 18 to 31 devine the number 
of consecutive pages that can be read or written at one time. 


LITERAL 
PNBSS_BLOCK_LENGTH = 4; 


MACRO 
= = BLOCKCPNBSS_BLOCK_LENGTH, BYTE] FIELD (PNB$Z_FIELDS) 


FIELD PNBSZ_FIELDS = 
SET 


PNBSV_PAGE_NUM = (0, 0, 17, 0) 
res: NBSY=GROUP_S1Z = (0. 17, 15, 04 
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— 


1 
; 5 


Pointer to next 


Pointer to prior 


eereaecon teem memneraep¢owsocamraeny 


Pointer to 
Node Control Block 


eon ree toc w recor of} moemmaecany 


Granted Privileges 


Ce er ee 


Denied Privileges 


eee eee — 224 


Banished Privileges 


ee ee ee eee. eee. ere | 


2222— ecoecetfooooeeooe}ooceooeen} 


Access Rights 


22222 — — — 
psvurd's; Pswrd's: Entity 
class : data : passwo 

: type : Lengt 


Pointer to entity's 
password string 


—— 4 


‘ 
‘ 
‘ 
‘ 
‘ 

+ 


LITE 


RAL 
SPB$S_BLOCK_LENGTH = 37; 
MACRO 


Security Preservation Block (SPB) 


Securtiy Preservation Block 


Securtiy Preservation Block 


*s 
rd 
h 


Must 
Scan 
Status 


— } ee eens —— —— —— — 


+0 


+4 


+8 


+12 


+16 


+20 


+24 


+28 


+32 


+36 


+37 
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SPBSA_NEXT_SPB 
SPBSA_PRIOR_SPB 
SPBSA_NCB 
SPBSL_GRANT 
SPBSL_DENY 
SPBSL_BANISH 


SPBSL_ACCESS_RIGHTS 


SPBSV_PASSWORD 
—* PSW 74 


SPBSA_PSW_POINTER 


SPB$B_SCAN_STATUS 


FIELD 
SET 


TES; 
LITERAL 
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SPBSZ_FIELDS = 


SPBSA_NEXT SPB 
et —PRIOR_SPB 


SPBSL_BANISH 
SPBSL ~ACCESS RIGHTS 
SPBSV_PASSWORD 


SW-CLAS 
SPBSA_PSW “POINTER 
SPBS$B_SCAR_STATUS 


SPBSK _QUE _HEADER 
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oh = BLOCKCSPBSS_BLOCK_LENGTH, BYTE] FIELD (SPBS$Z_FIELDS) 


ay 
aaa 
: aa) 
AEE 


= BLOCKCO, SPBSA_NEXT_SPB; , BYTE); 
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: ZSBTTL "System Literal Definitions’ 
SYSTEM LITERAL DEFINITIONS 


These Literals are only used internally. 


i COD Implementation Version 


LITERAL 
CDODSK_FACILITY = 43 
CDD$K-LOWEST VERSION = 30! . | Lowest compatible version 
CDDSK_VERSION = 201; | Present version 
'¢ 
: Boolean Literals 
LITERAL 
TRUE = 1, ! Boolean TRUE value 
FALSE = 0; ! Boolean FALSE value 
'¢ 
: 132 cotlewing literals are used to validate routines’ parameter 
; sts. 
le 
LITERAL 


ARGSK_OPTIONAL = 1, } Porenctor is cpt tonal 
ARGSK_REQUIRED = ¢° ! p req 
ARGSK_SYNC = 3, ; See “CbOSSuY VAL ISATE — 
ARGSK_SYNCIF = 4, ! See CDDSSU_VALIDAT 42° umentation 
ARGSK_MARK = 0. ' Mark paraméter as missing 
ARGSK_DEF AULT = 1, !' Use default value 
ARGSK- STRING = 1, ' Default i is a null string 
ARG$K~LONG = 2, ! Default value is a lonqword 
ARGSK_WORD = 3, ' Default value is a word value 
ARGSK_REF = Q, ' Parameter passed by reference 
ARGSK~ VALUE = 1; ! Parameter passed by value 


Access Lock Constants 


' 

‘ 

‘ 

i NOTE: The order of the LOCKSK_NORMAL Lock constants MUST be 
‘ the same as the order of the CIBSV REF _COUNTS Lock 

: ref count fields in the CIB. 


CODL18.832;1 
LITERAL 
LOCKSK_NULL 


LOCKSK NO 
— PRESEN cE 


LOCKSK_NORMAL_T 
73? LOCKSK_QUEUED 


: Types of pools 


LITERAL 


LOCKSK =RETRIEVAL 
KSK_UPDATE 


1 
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' Not locked 
Base of partially queued locks 


nnnnne 
WOU FEW oO 
ses © & & & — 


Number of partially queued locks 
Base of fully queued locks 


= e 

see LOCKS$K— =F ULL RET = 5, 

tes LOCK$K-FULL-UPD = 6, 

333 LOCKSK “QUEUED. TYPES = 2, ! Number of fully queued locks 
LOCKSK_XXX_GET = | hat be ! Flag indicates must establish lock 
LOCKSK_XXX-GET_IF = 1*18-1°17, ! Get lock if not already present 
LOCKS$K_OPTIONS™ = 1*32-1°16; ! Option bits for locks 

'¢ 

: Types of page purge requests 

LITERA 
PURGESK ALL = 1, ! Complete purge 
PURGE $K_PRESENCE = ¢° ! Purge but ee portal p 
PURGESK_RETRIEVAL = 3, ' Checkpoint & keep retriesel locks 

et = 4 ! Checkpoint & keep ou locks 
PURGE $K~SUBTREE = 160, i Purge whole subtre 
PURGESK_CLUSTER = 101; ! Purge this cluster ae 
'¢ 
: Types of blocks that can be allocated in a pool. 


MEMSK_ LOWEST con = 1, ! Lowest pool type 
MEMSK_CCB_POOL = 1, ' Pool for CCB He HCBs 
MEMSK"CIB-POOL = 3; ! Pool for cluster blocks 

MEMSK_HIGREST-POOL = 2; ! Highest pool type 

10 

CCB Pool block types 

LITERAL 
!' Lowest block type in CCB pool 
! CCB block 
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NNOUES WINN 


following cases: 
DELSK_FAST 


DELSK_SUBDICTIONARY 
dele 


DELSK_FAST = 1*1 = 140, 
DELSK_PRESERVE = 18 - 7°, 
DELSK_SUBDICTIONARY = 1°35 = 1*%2; 


ERAL 
CDD$K_ACL_LOWEST 


i User Identification Criteria 


M 
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Lowest block type in free block List 
HCB block 
Highest block type in CCB pool 


Lowest block type in cluster pool 
oc 
Lowest block type in free block List 


These flags tell the deletion routine how it is to handle the 
says that pointers do not have to be cleaned up, 
as the block they reside in is going to be deleted. 


DELSK_PRESERVE indicates that a directory node is worety to be 
emptied, and that its cluster is not to be de 


leted. 


says that sub-files are to have their contents 


3 * 
CDDSK_ACL-PASSWORD = 1, ! PASSWORD 
CDDSK_ACL_TERMINAL = ¢° ! TERMINAL name or class 
CDD$K_ACL_UIC = 3, !u 
CDDSK_ACL_USERNAME = 4, ! USERNAME 
CDODSK_ACL_HIGHEST = 4; 


Lee Eee — 
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CDD$K_DTR_PROT_E 
CDDSK_DTR_PROT_R 
COD$K-DTR_-PROT_M 
CDD$K_DTR_PROT_W 


4* SSBTTL "Security Masks’ 
; SECURITY MASKS 
14 
cod security bits 
LITERAL 
CDDSK_PROT_C = 1*1 = 1°0, 
CDD$K-PROT"D 2 1% - 1*1, 
CODSK_PROT_G = 1°35 - 3 
CDDSK_PROT_H = 1*4 - 1%3, 
CODSK"PROT—P = 1*5 = 1%%, 
DDSK_PROT_S s i - 1*5, 
DDSK_PROT_U = 1*7 - 8 
CDD$K_PROT_X = 1°8 - 1*7, 
CDD$K_PROT_F = 1*9 - 1°8, 
X 
Macro-security values 
CDDSK_PROT_ANY = 1*9 = 1°09 
CDDSK-PROT-DELETE = CDDS$K_PROT_D 
CDDSK_PROT_G 
CDDSK_PROT_EXTEND = CDDSK_PROT_F 
CDD$K_PROT_ 
CDDSK_PROT_UPDATE = CDDS$K~PROT"C 
CDD$K-PROT—D 
CDD$K_PROT_G 
CDDS$K"PROT-H 
CDD$K_PROT_U 
CDD$K_PROT_X 
CDDSK~| PROT~ F, 
¢ 
: Other processor security bits 
‘+ 
: VAX-11 Datatrieve 


N 
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CONTROL access 

LOCAL DELETE access 

GLOBAL DELETE access 

HISTORY List —e creation access 
PASS THRU acce 

SEE (read) ecce 3 

UPDATE terminal node * 

EXTEND directory node ac 

FORWARDing directory creation allowed 


EXTEND file 
READ file 

MODIFY file 
WRITE file 


— — 


CDDL18.B32;1 
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SSBTTL ‘User Literal Definitions’ 


USER LITERAL DEFINITIONS 


These symbols are needed by users of the program interface. 


t+ 
: System Defined Attribute Names 
LITERAL 
CDDSK_SYSNAM_FLAGS = 1°28 OR 1*27 OR 0°16; ! Global/System-defined/Protocol=0 
LITERA 
cODSK —4 _SYSNAM = 1 OR CDDSK_SYSNAM_FLAGS, : Lowest ee defined attribute name value 
DDSK_FILE = 1 OR CDDSK_SYSNAM_FLAGS, ! Node's file name 
CDDSK~ “HISTORY = ¢ OR CDDSK_SYSNAM_FLAGS, ! History List head 
CDDSK_NAM = 3 OR CDDSK_SYSNAM_FLAGS, ! Node's name 
CODSK_ PROTOCOL = 5 OR CDDSK_SYSNAM_FLAGS, ! Node's protocol name 
C a = 6 OR CDDSK_SYSNAM_FLAGS, ! Type of nod pe. 2 te by location code 
CDDSK=P HNAME = 7 OR CDDSK_SYSNAM_FLAGS, ' Node's complete perk 
CDD$K— “SHORT _PATHNAME= 8 OR CDDSK_SYSNAM_FLAGS, ' Node's path to C DSDEFAULT directory 
CDD$K_ = 9 OR CDDSK_SYSNAM_ “FLAGS, ! Directory's order 
CDDSK-LAST_SYSNAM = 9 OR CDDSK_SYSNAM_FLAGS; ! Highest system defined attribute name value 
‘+ 
Attribute and Entity Types 
LITERA 
CODSK Am— TYPE = 1, 
CDODSK_ENTITY = 1, 
CODSK-ENTITY_LIST = 2, 
= NULL = 5, 
COD$K_NUMERIC = 4, 
CDDSK— STRING 2 5, 
CDDSK_STRING LIST = 6, 
CDDSK" opine CTORY ae 
CDDSK~ TERMINAL = 8, 
CDDSK_LAST_TYPE = 8; 
'¢ 
: User's entity purge options 
LITERA 


CDDSK WALL 
COD$K KTABORT 
CDD$K~ CHECKPOINT 


nun 
— — — 
>>> 
wn 
‘ee 
_ 
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° User's node creation options 


—X _NOHISTORY = 1*1 = 140, 
CDD$K_NOACL = 3 — 
CODSK— apneate = 1*3 - 14° 
CODSK_FIRST = 1°%4 = 1%3, 
CDD$K_LAST = 1°5 = 1%4; 
14 
User's node deletion options 
LITERAL 
CDDSK_CHECK = 1°1 = 1°0, 


CDDSK_-SUBDICTIONARY = 1*2 = 141; 


'¢ 
te 


LITERAL 
CDD$K_SORTED = 1, 
CDD$K_NONSORTED = 2; 
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Doesn't want history List cluster 
Don't create default ACL entry 
Create dictionary file if needed 
Insert as first node 

Insert as last node 


Fail if directory has children 
Delete contents of subdictionaries 


4 Values of the CDDSK_ORDER attribute 


! Directory is sorted 
! Directory is not sorted 


1 
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: LINKAGE DEFINITIONS 


+ 


CDDCALL 


This Linkage uses the CALLG/CALLS egy ——— except 
that it allows for one global register to be used in 
parameter passing. 


— — — — — — — — — 


R11 == used to pass the user's context pointer. 
NKAGE 
CDDCALL = CALL : GLOBAL (USER_CONTEXT = 11); 


SYS_JSB 
i This Linkage provides us with a general JSB routine Linkage. 


LINKAGE 
SYS_JSB = JSB; 


— —— — —— — — — — — — — — — — —— — — — — — — — ——— — — — 
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* ZSBTTL "MACRO DEFINITIONS’ 


MACRO DEFINITIONS 


> 


SACTIVE 
SINACTIVE 


These macroes declare that we have started, and finished, 
—— 57 — a CdD transact on. They abort the transaction 
if another transaction is in progress. 


MACRO 
SACTIVE = 
BEGI 


N 
EXTERNAL 
CDDS$GB_INUSE : BYTE; 


EXTERNAL LITERAL 
CDD$_NOTASTREE; 
BUILTIN 
TESTBITSS; 


IF TESTBITSS (CDD$GB_INUSE) 
* SIGNAL (CDD$_NOTASTREE); 


THEN 
1. 
SINACTIVE = 
BEGIN 
EXTERNAL 
CDD$GB_INUSE : BYTE; 


. CDDSGB_INUSE = FALSE; 


SBITCLEAR 


This macro checks to see if any bit in a mask is set in the 
target area. If not, it returns TRUE. 


SBITCLEAR(target, mask) = 
(target AND mask) EQLU 0 


—ñ — — — — — —— — 


| Fl 
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: SBITSET 
i This macro checks to see if any bit in a mask is set in the 
: target area. If so, it returns TRUE. 


— be mask) = 
target AND mask) NEQU 0 


> 


SDONE _ TRANS 
This macro is used to terminate a transaction. 
Call: 
SDONE_TRANS C(dsc1 C, dsc2) ...)] 
Where: 


dsci :== the names of Spacers descriptors which are to 
have their strings returned to the string pool. 


SDONE TRANS (dsc1) = 
BE 


EXTERNAL ROUTINE 
CDDS$SN_DONE _ TRANS : CDDCALL NOVALUE ; 


CODSSSN_DONE_TRANS (dsc1 
ZIF-NOT ZNUL L(SREMAINING) RTHEN , ZREMAINING 2F1 ); 
* -USER_CONTEXTCCCBSL_STATUS) 


2 


SF IND_ENTITY 


This macro returns the virtual address of the LCCB associated 
with a location code. It also checks to make certain that 

the cluster is locked as requested, and that the cluster’ ; node 
allows the requested security access. 


Call: 
iccb-block.wa.v = sal 7 ENTITY (valid-arg.ra.v , 


ETRIEVAL 
( CHECK { UPDATE - C MODIFY >); 
) DELETE 


ELETE 


— — — —— ——ræ — 
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ANY 
Where: 
valid-arg :== the address of the calling routine's validated 
argument List. 
The argument List must have the following format: 
valid-arg(0)] ::= ecerees of lLongword holding 
x 


conte 
valid-arg{1] ::= address of descriptor holding 
path name, or zero. 


The first set of keywords names the desired lock state of 
the entity's cluster. 


The last set of keywords names the intended access to the 
cluster. 


SFIND_ENTITY (valid_arg, locking, security) = 
BcGIN 


EXTERNAL ROUTINE 
CDDSSSN_F IND_ENTITY : CDDCALL; 


CDDSSSN_FIND ENTITY (..valid —AI 
SFIAD_XXR LOCKING (ZREMOVE (Tocking)), 
— ZNAMET'CODSK_PROT_*, security)) 
x. 


SF IND XXX LOCKING (class, type? = 
ZIF ZIDENTICAL (class, ZQUOTE LOCK) ZTHEN 
OCKSK_XXX_GET OR 


SE 
ZIF ZIDENTICAL (class, ZQUOTE LOCKIF) %THEN 
rei st CCK SK-XxX_GET_IF OR 


E 
ZIF NOT ZIDENTICAL (class, ZQUOTE CHECK) THEN 
ZERROR (‘Invalid locking keyword: ‘, class) 


zF 1 
xf I 


ZNAME ("LOCKSK_*, type) 


+ 


$F IND_NODE 


This macro returns the virtual address of the NCB associated 

with a path name or location code. it also checks to make certain 
that the cluster is locked as requested, and that the target node 
allows the requested security access. 


* 


H 3 
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Call: 3 
ncb-block.wa.v = SFIND_NODE (valid-arg.ra.v , 
VA READ 
( € LOCKIF >} { UPDATE >), € MODIFY }); 
CHECK DELETE DELETE 
ANY 
Where: 


valid-arg :== the address of the calling routine's validated 
argument List. 
The argument List must have the following format: 


valid-arg(0)] ::= eserece of Longword holding 


contex 
valid-arg(1] ::= address of descriptor holding 
path name, or zero. 
valid-arg(2] ::= address of lLongword holding 
location code, or zero. 


The first set of keywords names the desired lock state of 
the node's cluster. 


The Last set of keywords names the intended access to the 
cluster. 


we ee (valid_arg, locking, security) = 


EXTERNAL ROUTINE 
CDDSSSN_F IND_NODE : CDDCALL; 


CDDSSSN_FIND NODE (valid 2 
SFIND_XXR_LOCKING (ZREMOVE(Locking)), 
ZNAMET'CODSK_PROT_*, security)) 


$F IND_PARENT 


This macro returns the virtual address of the NCB associated 
with a location code. It also checks to make certain that 

the cluster is locked as requested, and that the cluster's node 
allows the requested security access. 


Call: 
status.wic.v = SFIND_PARENT (valid-arg.ra.v , 
LOCK RETRIEVAL READ 
( € LOCKIF >} { UPDATE >), € MODIFY } , ncb-block.wa.r, 
CHECK DELETE DELETE 


name.wt.ds); 


CODLIB.832;1 16-SEP-1984 16:58:54 .80 Page 74 


Where: 


valid-arg :== wn ig of the calling routine'’s validated 
r n 
the argument (ist must have the following format: 


valid-arg(0) ::= — J. of lonquord holding 
x 


‘ 
' 
‘ 
! 
' 
| 
1 
t 
co 
‘ valid-arg({1] ::= —— of Govcr inter holding 
; Meg © or zero 
: valid-arg(2) ::= address 6 $ Tongword holding 
; location code, or zero. 
J 
' 
1 
' 
' 
1 


The first set of keywords names the desired lock state of 
the target cluster. 


The last set of keywords names the intended access to the 
cluster. 


SFIND PARENT (valid_arg, locking, security, ncb_block, name) = 


EXTERNAL ROUTINE 
CDDSSSN_F IND_PARENT : CDDCALL; 


rDDS$SN FIND_PARENT (valida rg 
XXR_LOCKING CEREMOV (Locking)), 
Se ve DBSK_PROT_', security), ncb_block, name) 


* 


SINIT_DSC 
This macro is used to initialize dynamic string descriptors. 


Call: 
SINIT_DSC (dsc1 C, dsc2) ...) 


SINIT_DSCCDSC_NAM) = 
BEGIN 


DSC_NAMCDSCSB_DTYPE] = DSCSK_DTYPE_T; 
DSC“NAMCDSC$B_CLASS) = DSCSK-CLASS_D; 
DSC_NAMLDSCSW Syd By oi 

= a 


DSC“NAMCDSCS$A_POINTER 
ND 


i $IO_SYNC (ef, iosb) 
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This macro waits for the gyent flag (ef) to be set and for 
the 1/0 status parameter (iosb) to be filled in (non-zero). 


ef must be the target event flag number. 


iosb must be the address of the 1/0 stetus block. This 
must be defined as a VECTORL,WORDJ VOLATILE structure. 


SIO_SYNC (ef, iosb) = 


BEGIN 
LOCAL 
STATUS: LONG; 


STATUS = SWAITFR (efn = ef); 
If NOT .STATUS THEN 
GNAL_STOP (.STATUS); 
STATUS = SCLREF (efn = ef); 
If NOT .STATUS THEN 
SIGNAL Tor (. STATUS); 
END WHILE .ios6{0) EQLU 0 


SMARK_PAGE (page-block) 


' 

' 

4 

: This macro marks a page as modified. Such a page must be 
: written back to the dictionary file when it is purged from 
: the staging buffers. 


SMARK_PAGE ‘page block) = 
page_block(PUBSV_MODIFIED] = TRUE 


+ 


SPARAMETERS (argi C, arg2] ...) 


This macro is used to build the control vector for the parameter 
List validate routine (CDDSSU_VALIDATE). 


There is one entry (argl, arg2, etc) for every formal parameter in 
the routine. Each entry has the following format: 


( REQUIRED , Cn} , CREF { VALUE) : 
{ SYNC : SYNC i oe 
TIONAL C,MARK : ,DEFAULT C,STRING : ,LONG : ,WORD) ) ) 


— renee = 
UPLIT (ZLENGTH, SPARM_PROCESS (ZREMOVE (ZREMAINING))) 


SPARM_ PROCESSCar "8 = 
BYTE (SPARM_DECIDE (ZREMOVE(arg))) 


SPARM Pec 106 Cotacus? C3 = 
ZIF ZIDENTICAL (status, ZQUOTE REQUIRED) XTHEN 
ARGSK REQUIRED, 0, 
rif EAU L CERERAINING) ZTHEN 


ZELS 7 
—— (ZREMAINING) 


LSE 
LIF ZIDENTICAL (status, %QUOTE SYNC) %THEN 
ARGSK_SY be ze {REMAINING 


SYNCIF ZREMAINING 


TIONAL, 
ERROR ("Invalid parameter status: 


REL uss 


2FI 
x51 
aFI 
2F I 
z, 


SPARM_REQUIRED (number poner = 
ZIF XNULL (pass) £1 


ZELSE 
ZNAME ("ARGSK_', pass) 


ZF 
ZIF ZNULL (number) ZTHEN 


ZELSE 
a number 
. FI 


SPARM_OPTIONAL(action)(] = 
xTF spent TTS. (action, ZQUOTE MARK) ZTHEN 
SK_MARK, 0 


L 
ZIF ZIDENTICAL (action, ZQUOTE DEFAULT) ZTHEN 
est ZNAME (*ARGSK_*, ZREMAINING) 


gennon ("Invalid action keyword: ', action) 
1 
FI 
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E 
RIF ANGER. SYNE potgtua. ZQUOTE THEN 


LIF IDENTICAL (status ZQUOTE OPTIONAL) XTHEN 
ARM_OPTIONAL (ZREMAINING), 


*, status) 
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‘s 
: SPRESENT 


i This macro checks to see if a parameter is present (non-zero) 
in a List. 


SPRESENT (name) = 
-name NEQA 0 


+ 


SRECOVERY ( RESET | ENABLE | DISABLE ) 


This macro determines the ability of the exit handler to 
perform a purge of the cache if the task aborts. 


SRECOVERY (DISABLE) 
declares that the internal data structures or 
external disk structure is in an indeterminant 
ptete and cannot be recovered by the exit 
andler. 


SRECOVERY (ENABLE) 
declares that the data structure manipulation 
s completed. 


SRECOVERY (RESET) 
specifies that the data structures are in a 
recoverable state. 


Note that these can be nested. Recovery is only possible if 
the recovery counter is zero (reset). 


SRECOVERY (option) = 
BEGIN 


EXTERNAL 
CDODSGW_RECOVERY: WORD; 


RIF ZIDENTICAL foot fon. ZQUOTE DISABLE) ZTHEN 
CODSGW_RECOVERY = .CDDSGW_RECOVERY + 1; 


FLSE 
RIF ZIDENTICAL (option, ZQUOTE ENABLE) Z%THEN 
CDDSGW_RECOVERY = .CDD$GW_RECOVERY = 1; 


L 
TIF ZIDENTICAL (option, ZQUOTE RESET) ZTHEN 
CDD$GW_RECOVERY = 6; 


* ZERROR (‘Illegal recovery option: ', option) 


151 


4 
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+ 


* 


SRELEASE _LOCK 


This macro calls the CDDSSSN_RELEASE routine to release one 
or more locks. 


Call: 


RETRIEVAL 
SRELEASE_LOCK ( { UPDATE } , ncb=-block! ...); 
DELETE 


SRL EASE LOCK (lLocking)C] = 


EXTERNAL ROUTINE 
CDDSSSN_RELEASE : CDDCALL NOVALUE ; 


-” CDDSSSN_RELEASE (2ZNAME ("LOCKSK_', locking), REMAINING) 


SSIGNAL_SEVERE (error) 
This routine signals a severe error. 


SSIGNAL SEVERE (ERROR) = 


SIGNAL (ERROR OR STSSK_SEVERE) 


SSTATIC_DSC 
This macro is used to initialize static string descriptors. 


Call: 

SSTATIC_DSC (dsc1 C, dsc2]) ...) 
Where: 

dsci :== name ! ( name , source ) 


Source is the name of another descriptor. The named descriptor 
is initialized to point to the same string as source. 


N 
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} 
i. 
SSTATIC_DSCCdsci) = 
x SSTATIC_DSC_BUILD (ZREMOVE (dsci)) 


+ 


SSTATIC_DSC_BUILD(name, source) = 
BEGIN 


) 
name(DSC$B_DTYPE] = DSCSK_D 
nameLDSC$B_CLASSJ = DSCSK_C 
ZIF ZNULL (Source) 


YPE_T; 
HEN ~ . 
nameLDSC$W_LENGTH) = 0; 


T — 
—E 


—*58 DSCSA-POINTER = 0; 
name(DSC$W_LENGTH] = .source(DSC$W_LENGTH]; 
py name DSCSA_POINTER] = .sourceLDSC$A_POINTER); 
END 
1. 
SSTRING 
These macros are used to build string descriptors for Literal 
strings. 
Call: 
SSTRING ( (name, string) ...) 
SSTRING_INIT (); 
*‘name"’ is defined to be a BLOCK structure, and the address of 
the string is poked into the structure by the STRING_INIT macro, 
which must be the first executable statement in a routine. 
SSTRING [] = 
BS TRING OSC SETUP (ZREMAINING) 
ZQUOTE ZQUOTE SSTRING_INIT = 
wit oe (ZQUOTE ZEXPAND ZXREMAINING) 
x. 


SSTRING DSC_SETUPCPAIR] = 
SSTRING_DSC_INIT (ZREMOVE(PAIR)) 


SSTRING_DSC_INIT (STR_NAME, STR_VAL) = 


STR_NAME: $DSC PRESET (CDSC$B_DTYPE) = DSCSK_DTYPE_T, 
bPSCsB CLASS = DSC$K_CLASS_S, 
DSC$W LENGTH) = 
ZCRARCOUNT (ZREMOVE(STR_VAL))); 
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SSTRING_PTR_SETUPCPAIR] = 
SSTRING_PTR_INIT (ZREMOVE (PAIR) ) 


SSTRING_PTR init (STR NAME, STR_VAL) = 
STR_NAME DSC$A_POINTERS = UPLIT BYTE (XREMOVE(STR_VAL)); 


STEXTC 


This macro is used to define counted strings. The first byte 
va — strings is a count of the number of characters in the 
string. 


Each string is defined to be a VECTORC,BYTE] structure, with 
the 0 element being the character count, and the actuar string 
starting at STRINGL1). 


STEXTC ((namel,"stri") C, (mame2, ‘str2')] ...); 


STEXTCCPAIR] = 
STEXTC_STR(ZREMOVE (PAIR) ) 


STEXTC_STR(NAME,TSTR) = 
BIN 


NAME = UPLIT BYTE (X%CHARCOUNT(XZREMOVE(TSTR)), X%REMOVE(TSTR)) : 
— VECTORLXZCHARCOUNT (ZREMOVE(TSTR)) 41, BYTE); 


* 


SVALIDATE (cntl, Carg-list]) 


This macro generates a call to the general transaction setup 
routine. 


cntl — the address of the control vector for CDDS$U_VALIDATE. 
arg-list-- is optional. If present, it is the address of the 


vector which is to receive the verified argument List 
from CDD$$U_VALIDATE. 


Ova IpATe Cont. arg_list) = 


EXTERNAL ROUTINE 
CDD$$SN_START_TRANS : CDDCALL NOVALUE; 


ana. 
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BUILTIN 
AP; 
ZIF NUL core List) ZXTHEN 
seus’ SN_START_TRANS (.AP, cntl) 


FI CDDSSSN_START_TRANS (.AP, cntl, arg_list) 
END 


And AH-BT13A-SE NT CORPORATION 
D PROPRIETARY 


VAX/VMS V4.0 


